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ABSTRACT 

This  paper  represents  a  study  of  the  problems  and  tech- 
niques of  decision-making  by  computer.   Current  methods  of 
machine  decision-making  are  described  and  analyzed.   The 
concepts  of  artificial  intelligence,  machine  learning, 
heuristic  search  and  adaptive  logic  are  introduced.   Two 
methods  of  training  adaptive  logic  elements  are  described. 
As  an  example  of  decision-making  by  computer,  two  computer 
programs  which  together  develop  parameters  and  make  deci- 
sions in  chess  are  presented. 
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I.   DECISION-MAKING  AND  ARTIFICIAL  INTELLIGENCE 

A.   PROBLEM  REPRESENTATION 

There  is  a  fairly  general  and  important  class  of  problems 
which  can  be  represented  in  the  form  of  a  tree  structure  [1] . 
This  class  of  problems  includes  applications  such  as  problems 
in  chess,  geometry  and  indefinite  integration.   The  tree 
structure  of  this  class  of  problems  is  formed  as  follows: 
The  problem  is  represented  in  a  state  space  such  that  the 
initial  state  is  the  problem  state  and  the  solution  is  the 
goal  state.   In  order  to  reach  the  goal  state  it  may  be 
necessary  to  pass  through  one  or  more  sub-goal  states.   If 
the  states  are  represented  as  nodes,  and  all  possible  move- 
ments from  one  node  to  another  are  represented  by  branches, 
then  the  problem  description  is  a  tree  structure  as  shown  in 
Figure  1.   The  nodes  at  level  L+l  generated  from  a  node  at 
level  L  are  known  as  first  successor  nodes.   Thus  In  Figure 
1  nodes  11,  12  and  13  are  first  successors  to  node  01. 

Generation  of  all  possible  successor  nodes  from  any 
given  node  in  a  tree  is  known  as  complete  node  expansion. 
One  approach  to  general  problem  solving  is  to  expand  the 
problem  node  into  a  set  of  first  successor  nodes,  then  ex- 
pand each  of  the  successor  nodes,  and  so  on  until  either  the 
goal  state  -  node  -  is  reached  or  all  possibilities  are  ex- 
hausted.  Implicit  in  this  technique  is  a  test  conducted  at 
each  node  to  determine  whether  the  goal  state  has  in  fact 
been  reached. 
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It  is  not  difficult  to  see  that  a  general  tree  structure 
expands  exponentially.   That  is,  if  each  node  has  n  successor 
nodes,  then  the  number  of  nodes  at  each  level  L  -  with  L=0 
for  the  initial  node  -  can  be  expressed  as  n  . 

For  problems  with  n  or  L  -  or  both  -  large,  exhaustive 
search  of  the  tree  as  proposed  above  becomes  impossible,  even 
if  the  search  is  carried  out  by  a  high-speed  computer.   The 
problem  is  said  to  suffer  from- combinatorial  explosion. 

Problems  with  very  large  search  trees  form  a  set  of  very 
difficult  and  interesting  problems,  particularly  from  the 
standpoint  of  programming  their  solution  on  a  computer.   Many 
of  these  large  problems  represent  areas  where  human  beings 
can  cope  very  well.   Examples  include  theorem-proving,  sen- 
tence-parsing, the  recognition  of  cursive  script,  chess  and 
language  translation.   Research  on  the  solution  of  this  kind 
of  problem  by  computer  has  come  to  be  known  as  the  study  of 
Artificial  Intelligence. 

B.   ARTIFICIAL  INTELLIGENCE 

As  an  example  of  an  Artificial  Intelligence  problem,  con- 
sider the  game  of  chess.   Chess  can  be  represented  by  a  tree 
with  each  board  position  a  node  and  each  possible  move  a 
branch.   As  in  all  two-person  competitive  game  trees,  since 
each  person  makes  a  decision  only  at  every  alternate  level, 
the  term  ply  has  come  into  use  as  a  descriptor  of  a  player's 
decision  levels.   Each  level  therefore  represents  \   ply,  and 
each  player  will  make  a  decision  at  ply  n  from  his  starting 
node,  where  n=l,2,3*««- 
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Each  node  in  chess  typically  generates  around  30  succes- 
sors [2].   The  complete  game  tree  in  chess  is,  for  all  prac- 
tical purposes,  infinite.   Yet  men  play  chess,  and  some  men 
play  it  very  well. 

It  is  known  [3]  that  even  chess  grand  masters  search 
fewer  than  100  nodes  before  arriving  at  a  decision  for  a 
move.   Modern  chess  programs  search  many  thousands  of  nodes, 
and  yet  their  most  successful  -level  of  play  is  only  at  the 
high  amateur  level  [4]. 

The  crucial  aspect  is  that  the  grand  master  searches 
only  a  small  portion  -  indeed  a  fraction  too  small  to  be 
measured  -  of  the  tree,  but  he  somehow  selects  the  most  pro- 
ductive branches  on  which  to  carry  out  his  limited  search. 
The  process  of  eliminating  branches  from  consideration  for 
further  search  is  known  as  pruning,  and  the  process  whereby 
one  branch  is  selected  for  action  is  known  as  decision-making 

The  main  purposes  of  the  study  of  Artificial  Intelligence 
are  to  understand  human  intelligence,  to  find  rules  of  de- 
cision-making which  can  be  used  by  a  computer,  and  to  use 
machine  intelligence  to  solve  difficult  problems  [5]. 

1.   Human  Decision-Making 

As  explained  above,  the  process  whereby  one  branch 
from  a  node  is  selected  from  others  for  action  is  known  as 
decision-making.   Human  beings  make  decisions  in  complex 
ways  which  are  little  understood. 

One  branch  of  Artificial  Intelligence  is  interested 
in  determining  how  the  human  brain  makes  decisions.   Re- 
searchers who  study  man's  decision-making  processes  make  use 
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of  a  technique  known  as  protocols.   In  using  the  protocol 
method  the  researcher  observes  the  subject  thinking  aloud 
while  trying  to  solve  a  problem.   In  chess,  this  method 
has  extended  to  study  of  the  eye  movements  of  grand  masters 
while  contemplating  play.   From  the  study  of  protocols,  re- 
searchers construct  a  computer  program  model  of  the  problem- 
solving  techniques  displayed,  and  note  how  the  results  of 
their  program  differ  from  that-  of  the  human  subject. 
2 .   Machine  Decision-Making 

The  other  branch  of  Artificial  Intelligence  Is  in- 
terested only  in  obtaining  intelligent  behavior  from  a  com- 
puter.  A  researcher  from  this  school  is  not  concerned 
whether  the  structure  of  his  program  in  any  way  resembles 
the  human  decision-making  process.   He  is  concerned  with 
results . 

One  method  used  by  researchers  of  this  school  is 
that  of  heuristic  programming.   A  heuristic  [6]  is  a  rule  of 
thumb,  strategy  or  trick  which  is  used  to  ehance  the  decision- 
making process  of  a  computer  program.   Related  to  the  word 
"eureka,"  -  from  the  Greek  heuriskein,  serving  to  discover  - 
a  heuristic  is  a  technique  used  by  the  computer  programmer, 
not  by  the  computer. 

In  order  to  attack  Artificial  Intelligence  problems 
by  computer,  the  problem  must  first  be  structured  in  such  a 
way  that  the  computer  can  deal  with  it.   Since  computers  can 
only  perform  a  strictly  defined  and  limited  set  of  operations, 
it  is  the  task  of  the  computer  program  to  present  the  problem 
as  a  series  of  operations  which  the  machine  can  carry  out. 
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The  programmer  uses  heuristics  when  he  translates  a  complex 
problem  into  a  series  of  machine  operations. 

An  example  of  a  heuristic  used  in  chess  is  a 
method  to  determine  control  of  the  center  of  the  board.   A 
programmer  could  use  the  heuristic  that  occupation  of  a  ma- 
jority of  the  center  four  squares  on  the  board  by,  say, 
White  represents  control  of  the  center  by  White.   Based  on 
this  heuristic,  the  programmer  would  instruct  the  machine 
to  determine  which  player  -  if  any  -  has  more  pieces  on  the 
center  four  squares.   If  the  heuristic  is  a  good  one,  then 
the  answer  computed  by  the  machine  will  be  equivalent  to 
the  determination  of  center  control  by  a  grand  master. 

In  most  problems  of  Artificial  Intelligence,  the 
programmer  will  use  many  such  heuristics  in  an  attempt  to 
enable  the  computer  to  evaluate  a  node  and  to  decide  which 
branch  from  that  node  is  most  likely  to  lead  towards  the 
goal  state.   The  combination  of  a  number  of  heuristically 
programmed  operations  used  to  evaluate  a  node  is  known  as 
an  evaluation  function. 

The  basic  idea  of  heuristic  programming  is  to  use 
information  derived  from  the  problem  to  guide  the  search 
through  the  problem  nodes  in  such  a  way  as  to  limit  the 
number  of  nodes  searched  while  still  successfully  finding 
the  goal  state  (node). 

Heuristic  search  may  be  either  breadth-first  or 
depth  first.   If  all  first  successors  of  each  node  are 
searched  before  more  nodes  are  generated,  then  the  resulting 
search  is  called  a  breadth-first  search,  as  shown  in  Figure 
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2.   If  the  search  proceeds  from  one  of  the  first  successors 
to  following  levels  before  visiting  other  nodes  at  the  early 
levels,  it  is  termed  a  depth-first  search,  as  shown  in 
Figure  3-   Roughly  speaking,  a  breadth-first  procedure 
generates  from  the  top,  while  a  depth-first  procedure  gen- 
erates from  the  left. 

There  are  two  general  methods  of  tree  pruning  widely 
used  in  heuristic  programming.   The  first  involves  depth- 
first  search  wherein  the  last  node  generated  -  for  example 
node  7  at  level  3  in  Figure  3  -  is  assigned  a  value  based 
on  the  computer's  evaluation  function.   Based  on  this  value, 
the  predecessor  node  at  level  2  (node  2)  is  assigned  a  value, 
and  so  on  until  the  initial  node  is  reached.   This  process 
is  called  "backing-up"  the  value  of  one  node  to  its  prede- 
cessors, and  if,  based  on  the  value  backed-up  to  the  initial 
node,  this  whole  branch  (nodes  1  to  7)  is  eliminated  from 
further  consideration  then  it  is  said  that  the  tree  has  been 
pruned  by  backward  pruning. 

The  second  method  of  tree  pruning  is  to  use  informa- 
tion available  at  a  node  to  eliminate  from  consideration 
some  branches  emanating  from  that  node.   This  technique  is 
known  as  forward  pruning. 

A  widely  used  method  of  backward  pruning  in  game 
trees  is  known  as  the  alpha-beta  procedure.   The  procedure 
functions  as  follows:   Consider  the  diagram  of  Figure  ^ , 
which  represents  a  game  tree  wherein  the  square  nodes  are 
the  position  at  which  it  is  Player  A's  turn  to  move,  and 
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the  round  nodes  are  the  positions  at  which  it  is  Player  Bfs 
turn  to  move.   Player  A  is  the  computer. 

At  the  initial  node,  Player  A  has  two  options 
(branches)  leading  to  nodes  PI  and  P2.   The  computer  has 
obtained  a  (possibly  backed-up)  value  for  node  PI  of  Vl=3. 
The  alpha-beta  procedure  sets  alpha=3  at  P2.   Now  when  node 
P21  is  generated  and  evaluated,  and  the  value  V21  is  found 
to  be  less  than  alpha,  the  procedure  is  said  to  have  found 
an  alpha  cutoff.   That  is,  the  computer  does  not  bother  to 
generate  nodes  P22,  P23>...  and  their  successors,  because 
it  is  already  evident  that  node  P2  is  worse  for  Player  A  than 
node  PI,  since  it  is  now  known  that  Player  B  at  node  P2  has 
at  least  one  choice  which  will  result  in  a  node  of  value  less 
than  that  resulting  from  any  possible  branching  from  node  PI. 
Therefore  Player  A  should  choose  the  branch  to  PI  as  his 
next  move . 

Similarly,  in  Figure  5,  the  computer  has  assigned  a 
(possibly  backed-up)  value  of  Vll=iJ  for  node  Pll.   This 
value  becomes  the  beta  value  for  the  nodes  P121,  P122,  etc. 
Thus  when  the  computer  finds  node  P121  with  a  value  of  V21=8 
greater  than  beta,  it  finds  a  beta  cutoff.   That  is,  it  does 
not  generate  and  evaluate  node  P131-   Here  again,  it  is  as- 
sumed that  Player  B  acting  at  node  PI  will  not  choose  the 
branch  to  node  P12,  because  there  is  at  least  one  successor 
to  P12  which  is  greater  in  value  than  any  of  the  successors 
of  Pll. 

Note  that  this  procedure  depends  on  the  accuracy  and 
validity  of  the  evaluations  at  each  node.   That  is,  if  the 
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heuristics  used  to  generate  the  values  are  incorrect  or  in- 
complete, then  the  numbers  assigned  to  each  node  become  at 
best-  less  meaningful,  and  the  procedure  may  fail. 
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II.   ADAPTIVE  LOGIC 

As  described  above,  the  success  of  the  alpha-beta  pro- 
cedure -  and  indeed  of  any  tree-search  procedure  -  depends 
upon  the  validity  of  the  evaluation  function  used  to  assign 
a  value  to  a  node.   Thus  one  of  the  most  difficult  tasks 
facing  the  Artificial  Intelligence  programmer  is  the  selec- 
tion and  generation  of  an  evaluation  function. 

One  method  used  to  generate  evaluation  functions  is  to 
select  a  set  of  heuristics  applicable  to  the  problem,  pro- 
gram the  resulting  operations  and  generate  from  the  results 
of  computation  a  set  of  parameters  which  describe  the  problem 
state.   The  values  of  the  parameters  -  if  they  are  correct 
and  complete  -  can  then  be  combined  to  form  an  evaluation  of 
any  node  in  the  tree. 

The  set  of  the  values  of  heuristically  generated  param- 
eters can,  of  course,  be  combined  in  many  ways.   One  method 
could  be  simply  summing  the  values  to  obtain  a  total  value 
for  the  node.   Another  method,  more  commonly  used,  is  to  form 
a  weighted  sum  of  the  parameter  values  wherein  the  weights 
can  be  adjusted  to  obtain  better  results.   A  computer  model 
of  this  technique  is  known  as  an  adaptive  logic  element. 

A.   ADAPTIVE  LOGIC  ELEMENTS 

Adaptive   logic  elements  have  been  studied  and  analyzed 
for  a  number  of  years.   These  elements  have  found  particular 
usefulness  in  the  field  of  trainable  pattern  classifying 
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systems  [7].   Training  algorithms  for  these  elements  exist 
and  are  well-defined. 

.  Figure  6  is  a  diagram  of  an  adaptive  linear  threshold 
logic  element,  or  Adaline  [8].   The  j    inputs  to  the  Adaline 
form  a  vector  X . 3    each  element  of  which  is  multiplied  by  the 

J 

corresponding  element  of  a  weight  vector  W..   The  output  of 

j 

T 
the  summer  is  then  a  scalar  y.  with  the  value  y.=X.  W.. 

Note  that  the  first  input  x  .  is  always   +1;  because  of 

this  the  zeroth  weight  element  w  .  controls  the  threshold 

oj 

of  the  Adaline.   Thus  the  output  y.  is  biased  by  the  value 

J 

w  ..   The  output  sum  y.  is  now  fed  to  the  quantizer  which  pro- 

duces  the  quantized  output  of  the  Adaline,  q.. 

j 

The  adaptation  machinery  receives  as  inputs  X.,  y.,  q. 

and  the  desired  resoonse  of  the  element  d . .   If  q.=d.,  then 

3  l3      33 

the  Adaline  has  performed  properly  and  no  action  is  taken 

(actually  In  some  applications  the  element  may  be  rewarded 

for  correct  response) .   If  q.^d..  there  exists  an  error  e 

H3      J  5 

T 
which  Is  equal  to  d.-y.  or  d.-X.  W..   In  response  to  this 
H  3    J3  3      J   J 

error  e  the  adaptation  machinery  causes  the  weights  W.  to 
be  changed.   If  this  process  is  now  repeated  with  the  same 
input  the  Adaline  will  eventually  arrive  at  the  proper  set 
of  weights  such  that  the  desired  output  is  obtained  for 
the  input  X . . 

B.   LEARNING  WITH  A  TEACHER 

In  many  of  the  fields  for  which  adaptive  logic  elements 
have  been  used,  for  example  pattern  recognition,  the  desired 
output  d.  for  each  input  vector  X.  is  well  known.   In  these 
fields,  it  is  usually  assumed  that  the  set  of  patterns  of 
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interest  is  small  compared  to  the  total  number  of  possible 
patterns,  and  that  the  set  of  patterns  corresponds  to  a 
linearly  separable  function  such  that  there  is  a  set  of 
weights  which  will  provide  the  desired  output  for  all  input 
patterns  of  interest  [9].   In  cases  where  these  assumptions 
are  met,  Adalines  can  provide  high  accuracy  pattern  recogni- 
tion at  very  low  cost  for  computer  storage  or  processing 
time . 

When  an  Adaline  is  used  as  described  above,  the  adapta- 
tion machinery  operates  on  the  same  input  iteratively  until 
the  desired  output  is  obtained,  and  after  the  element  is 
trained  for  a  large  number  of  input  patterns,  the  adaptation 
machinery  is  removed  and  the  element  will  now  be  able  to 
recognize  most  of  the  class  of  patterns  for  which  it  has 
been  trained.   This  method  of  training  is  known  as  learning 
with  a  teacher.   Adalines  which  learn  with  a  teacher  exhibit 
well-defined,  exponential  learning  curves  and  will  always  be 
stable  under  known  conditions  [10]. 

The  weight  iteration  rule 

j+1     j    n+1  3    j 

developed  by  Widrow  and  Hoff  [16]  ensures  that  |e.|  will  be 

j 

reduced  by  the  j    adaptation,  so  long  as 

2  <  a  <  0. 

C.   LEARNING  WITH  A  CRITIC 

Adalines  trained  by  learning  with  a  teacher  have  proven 
to  be  a  valuable  tool  in  many  fields.   However,  they  cannot 
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be  used  when  the  desired  output  for  each  input  pattern  is 

unknown.   To  overcome  this  difficulty,  and  to  expand  the 

field  of  applications  for  Adalines,  Widrow,  Gupta  and  Maitra 

have  proposed  a  new  technique  for  training  an  Adaline,  called 

learning  with  a  critic  [11]. 

In  this  method,  also  called  selective-bootstrap  learning, 

the  output  q.  of  the  Adaline  is  used  to  form  the  desired  re- 

sponse  signal  d.  (see  Figure  7-).   The  bootstrap  control  sig- 

J 

nal  b.  determines  whether  d.=q.  or  d.=-q..   The  control 
3  J   J      J    J 

signal  b.  is  determined  by  an  external  evaluator,  or  critic. 

If  the  critic  feels  that  the  present  decision  (output  q.)  is 

a  member  of  a  set  of  relatively  successful  decisions,  then 

b.  is  set  such  that  d.=q..   In  other  words,  the  logic  ele- 
3  3      3 

ment  is  being  told  that  the  decision  just  made  is  a  correct 
one.   If,  on  the  other  hand,  the  critic  feels  that  the  de- 
cision was  not  a  good  one,  then  b.  is  set  such  that  d.=-q.. 

-  J  3         3 

In  the  first  case,  called  positive  bootstrap  adaptation 
or  learning  by  reward,  the  Adaline  will  tend  to  maintain  the 
responses  that  already  exist.   In  the  second  case,  called 
negative  bootstrap  adaptation  or  learning  by  punishment,  the 
Adaline  will  tend  to  change  its  existing  output. 

Continued  iterative  application  of  b .  as  determined  by 

J 

the  critic  results  in  the  training  of  the  Adaline.   Note 
that  while  learning  with  a  teacher  is  well-defined  and  spe- 
cific, learning  with  a  critic  is  qualitative  in  nature.' 
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III.   THE  PROBLEM  OF  CHESS 

The  attempt  to  program  a  computer  to  play  grandmaster 
level  chess  is  a  problem  which  has  fascinated  the  experts 
almost  from  the  inception  of  the  computer  itself.   Its  solu- 
tion has  to  date  eluded  the  best  efforts  of  the  artificial 
intelligence  community  and  the  utilization  of  the  most  po- 
werful computing  machinery  available. 

A.   DESCRIPTION  OF  THE  PROBLEM 
1.   Why  Chess? 

Chess  is  merely  a  game.   It  is,  to  be  sure,  a  very 
difficult  game,  and  one  which  requires  a  great  deal  of  skill 
in  order  to  play  well.   But  the  qualities  of  chess  which  make 
it  such  an  interesting  problem  for  computer  programming  are 
threefold:   Firstly,  it  is  well-defined  in  that  an  exact 
model  of  the  game  can  be  programmed  into  the  computer. 
Secondly,  it  is  a  very  large  problem;  so  large  that  no  ex- 
haustive search  of  all  its  possibilities  could  ever  be  car- 
ried out.   Lastly,  It  is  a  member  of  a  class  of  large  problems 
which  human  beings  can  solve  very  well  even  though  their  re- 
sources seem  to  be  even  more  limited  than  those  of  the  com- 
puter.  It  is  especially  this  third  quality  which  makes 
chess  such  an  interesting  problem.   It  is  generally  felt  that 
the  ability  to  program  a  computer  to  play  championship  level 
chess  will  open  new  doors  in  all  areas  of  artificial 
intelligence  [12].   Indeed,  it  has  been  said  that  "If  one 
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could  devise  a  successful  chess  machine,  one  would  seem  to 
have  penetrated  to  the  core  of  human  intellectual  endeavor 
[13]." 

2.   Orders  of  Magnitude 

Looking  at  a  chessboard,  it  is  difficult  to  imagine 
just  how  complex  the  game  really  is.   There  are  only  sixty- 
four  squares  on  the  board,  and  thirty-two  pieces.   Yet  there 
are  101*3  board  positions  possible  and  more  than  10120  possi- 
ble games.   To  put  these  numbers  in  perspective,  consider 
that  there  are  10 55  molecules  comprising  the  entire  earth 
[14].   Or  consider  a  computer  which  could  analyze  one  million 
board  positions  in  one  second;  then  it  would  take  this  com- 
puter 3.17  x  1029  years  to  analyze  all  board  positions. 
After  one  million  years  of  constant  computation,  the  computer 
would  have  completed  less  than  one  thousand  -  billion  - 
billionths  of  one  percent  of  the  total  problem. 

The  magnitude  of  these  numbers  is  really  beyond  the 
comprehension  of  men.   Yet  contrasted  with  these  astronomi- 
cal numbers  are  some  small  numbers  associated  with  the  human 
brain  which  are  especially  interesting.   The  brain,  while 
having  an  enormous  storage  capacity,  is  inherently  limited 
in  many  respects.   First  of  all,  it  is  very  slow,  operating 
in  the  range  of  hundredths  of  seconds  [15].   Secondly,  it 
has  a  very  small  short-term  memory.   In  fact,  it  has  been 
shown  [16]  that  short-term  memory  can  only  store  about  seven 
"chunks."  of  information.   ("Chunk,"  as  distinct  from  "bit," 
has  been  chosen  by  G.  A.  Miller  [16]  to  describe  units  of 
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information  in  the  brain.   A  chunk  is  variable  in  size  and 
can  range  from  a  single  number  to,  in  the  case  of  a  chess 
expert,  a  complete  chessboard  position.) 

The  question  that  arises  from  comparison  of  numbers 
such  as  101*3  with  numbers  such  as  7  is  this:   How  can  a 
seemingly  limited  organism  cope  with  such  a  vast  problem? 
The  answer  to  this  question  would  probably  solve  the  problem 
of  computer  chess  -  as  well  as  many  other  problems  -  once 
and  for  all. 

The  key  factor  in  the  human's  ability  to  play  chess 
well  is  selection.   As  has  been  shown,  a  chess  position  pre- 
sents the  player  with  a  choice  of  about  thirty  possible 
moves  on  the  average.   If  he  considers  the  opponent's  pos- 
sible responses  to  each  move,  there  are  now  about  900  pos- 
sibilities to  be  explored.   Since  it  is  known  that  a 
grandmaster  often  looks  5  or  6  moves  ahead  [17],  if  he  con- 
sidered every  possibility  he  would  consider  on  the  order  of 
5  x  10 lh    moves!   Yet  it  is  known  that  the  same  grandmaster 
who  looks  6  moves  ahead  only  considers  50  -  100  possibilities 
at  most  [18].   Through  some  process  not  yet  known,  the 
skilled  human  player  is  able  to  drastically  reduce  the 
search  space  on  which  he  operates  to  a  level  which  he  can 
handle . 

If  all  the  computer  had  to  do  was  search  these  100 
nodes,  and  if  the  evaluation  function  used  were  reasonably 
time-efficient,  then  the  competition  between  man  and  machine 
would  be  no  contest.   But  the  real  problem  for  the  computer 
is  determining  which  hundred  nodes  to  search. 
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The  computer  can  partly  make  up  for  its  lack  of  se- 
lectivity *by  brute  force;  that  is,  it  can  search  many  thou- 
sands of  nodes  while  the  human  is  considering  his  hundred. 
But  this  advantage  is  not  enough  to  offset  the  human's  ad- 
vantage of  selectivity. 

Chess  programming  has  therefore  emphasized  two  major 
objectives:   Increasing  speed  and  power  still  more  and  in- 
creasing the  computer's  selectivity. 

B.  HISTORY  OF  COMPUTER  CHESS 

The  first  important  publication  on  chess  machinery  was 
Shannon's  paper  in  1950  [19].   In  his  paper  he  described 
the  basic  approach  to  creating  a  chess  program  five  years 
before  the  availability  of  computers  capable  of  average  play. 
In  1957  Newell,  Shaw  and  Simon  [20]  predicted,  conservatively 
that  a  computer  would  be  world  champion  within  10  years. 
The  complexity  of  the  game  was  greatly  underestimated. 

In  I967  Greenblatt  [21]  produced  what  is  generally  con- 
sidered to  be  the  most  successful  chess  program.   It  plays 
at  about  the  high  amateur  level. 

Other  notable  chess  programs  which  have  been  written 
include  Northwestern  Univeristy's  Chess  3.0,  3.5  and  4.0 
Kozdrowicki  and  Cooper's  COKO  II  and  III,  Gillogly's  Tech 
and  Simon  and  Chase's  MATER  Program  [22]. 

C.  PROGRAMMING  METHODS 

Most  chess  programs,  including  Greenblatt ' s ,  Chess  4.0 
and  Samuel's  highly  successful  checker  player,  use  the  well- 
known  alpha-beta  tree  search  procedure  as  their  basis.   They 
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also  incorporate  a  plausibility  generator  as  a  forward 
pruning  technique;  that  is,  the  first  successor  nodes  to 
the  problem  situation  node  are  ordered  according  to  an 
evaluation  function  such  that  the  most  plausible  or  promis- 
ing branches  from  the  problem  node  are  searched  first. 

A  notable  exception  to  the  set  of  programs  using  alpha- 
beta  is  Tech  [23]  which,  after  an  initial  move  ordering  at 
the  problem  node,  produces  the  search  tree  in  a  straight- 
forward fashion  by  brute  force  as  deep  as  time  will  allow. 
It  is  interesting  to  note  that  while  the  rating  of  Tech  is 
only  about  1300  -  that  of  a  weak  amateur  -  in  the  second 
U.  S.  Computer  Chess  Championship  Tech  placed  second,  ahead 
of  other  programs  which  use  sophisticated  evaluation  functions. 

Kozdrowicki  and  Cooper's  COKO  III  [24]  uses  a  selective 
tree  searching  procedure  whereby  the  entire  tree  is  stored 
in  memory  and  the  machine  makes  a  probabilistic  estimate  of 
the  most  effective  node  on  the  tree  for  further  search. 

Simon  and  Chase's  MATER  Program  is  an  attempt  to  cause 
the  computer  to  act  exactly  as  a  human  chess  player.   From 
studies  of  protocols  and  human  decision-making,  they  have 
constructed  a  program  which  contains  all  the  verifiable 
elements  of  the  human  decision-making  process.   In  imitating 
what  is  known  of  the  structure  of  the  brain,  these  researchers 
hope  to  be  able  to  duplicate  its  function  [25].   Although  this 
approach  has  been  likened  to  trying  to  debug  a  program  with- 
out a  computer  [26],  this  study  should  bring  greater  know- 
ledge concerning  not  only  chess  but  the  nature  of  all  human 
problem-solving . 
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BoLvinnik  [27]  believes  that  it  is  important  to  know 
which  pieces  are  able  to  reach  a  certain  square  or  sector 
of  the  board  in  a  certain  number  of  half-moves  (plies). 
This  establishes  for  each  piece  what  Botvinnik  calls  a 
"horizon."   Planning  would  include  only  those  pieces  whose 
horizon  is  sufficient  to  aid  in  attaining  the  goal.   Some 
of  Botvinnik's  ideas  have  been  programmed,  but  as  yet  no 
complete  program  incorporating  all  of  his  ideas  has  been 
announced . 
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IV.   PLAYER  AND  PRO 

PLAYER  and  PRO  are  two  programs  written  for  the  purpose 
of  attacking  the  chess  problem.   PRO  is  in  essence  the  adap- 
tation machinery  of  an  adaptive  logic  element  which  is  used 
in  the  training  of  PLAYER  using  published  positions  with 
known  best  moves.   Actual  games  are  played  by  PLAYER  alone; 
no  learning  takes  place  during  a  game. 

A.   APPROACH  TO  THE  PROBLEM 

As  has  been  shown,  present  day  computer  chess  programs 
utilize  the  speed  and  power  of  modern  computers  to  search 
thousands  of  nodes  in  order  to  arrive  at  a  decision.   This 
is  not  to  say  that  their  programmers  did  not  use  very  sophis- 
ticated techniques  in  their  designs  in  order  to  limit  the 
search;  however,  the  search  carried  out  is  still  orders  of 
magnitude  greater  than  that  carried  out  by  a  man.   The  ex- 
ception is  the  MATER  Program  of  Simon  and  Chase,  which  as 
described  attempts  to  imitate  human  techniques. 

The  approach  of  PLAYER  is  different  from  either  of  these 
PLAYER  does  not  try  to  imitate  a  human,  nor  does  it  use 
brute  force  to  search  through  a  great  many  nodes.   PLAYER 
was  designed  to  study  the  chess  problem  and,  insofar  as 
possible,  to  provide  an  ordering  of  possible  moves  based  on 
the  initial  node  and  its  first  successors  only.   A  primary 
goal  was  to  gather  as  much  information  as  possible  from  the 
initial  state. 
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PLAYER  attempts  to  take  advantage  of  two  facts:   The 
first  is  that  a  computer  has  perfect  memory;  that  is,  as- 
suming it  is  functioning  properly,  it  will  not  "miss"  an 
opening  or  "not  see"  a  threatening  piece.   The  computer  can 
easily  keep  track  of  a  large  number  of  pieces,  positions 
and  parameters  as  long  as  they  are  expressed  in  terms  it 
can  deal  with.   The  second  fact  is  a  simple  logical  truth: 
All  chess  positions,  assuming  perfect  play,  terminate  in 
either  a  win,  a  loss  or  a  draw  [28].   Therefore  any  chess 
position  is  implicitly  either  a  winning  position,  a  losing 
position  or  a  draw  position.   If  it  could  be  assumed  that  a 
game  is  being  played  by  two  perfect  chess  players,  a  winning 
position  could  only  result  in  a  win,  a  losing  position  only 
a  loss,  and  a  draw  position  only  a  draw.   For  example,  since 
White  always  has  the  advantage  of  the  opening  move  [29], 
White  should  always  win  and  Black  should  always  lose.   That 
this  does  not  happen,  even  at  the  grandmaster  level,  is  a 
testament  to  the  fact  that  there  are  no  perfect  players. 

The  rub  is,  of  course,  that  just  as  there  are  no  perfect 
players,  there  is  no  one  who  can  say  for  sure,  for  more  than 
a  very  few  given  board  situations,  whether  that  situation  is 
a  winning,  losing  or  draw  position.   It  can  be  postulated 
that  there  is  a  set  of  parameters  which  can  describe  any 
board  position  in  these  terms;  so  far  no  one  has  found  it. 

The  approach  of  PLAYER  is  to  study  the  problem  of  param- 
eter generation  and  evaluation  by  surveying  the  current  board 
situation  in  terms  of  winning,  losing  or  drawing,  and  to  find 
a  move  which  will  result  in  another  situation  no  worse  than 
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the  present  situation.   In  order  to  do  this  PLAYER  must 
evaluate  all  possible  moves,  but  only  to  a  depth  of  h   ply. 
PLAYER  therefore  tries  to  gather  as  much  information  pos- 
sible from  a  study  of  the  original  problem  node  and  its 
first  successors. 

B.   PLAYER 

PLAYER  is  a  computer  program  written  entirely  in  FORTRAN 
PLAYER  consists  of  a  short  MAIN  program  and  five  subroutines 
which  will  be  described  below. 
1 .   Data  Structure 

The  chessboard  is  represented  as  an  eight-by-eight 
array  as  shown  in  Figure  8.   In  all  double-subscripted  ar- 
rays, I  represents  the  rank  and  J  the  file  of  the  location 
specified.   The  following  arrays  form  the  basic  data  struc- 
ture of  PLAYER: 
OCCSQ(8,8)  contains,  in  the  location  where  a  piece  rests, 

the  value  of  that  piece.   White  pieces  are  coded  as 
plus  and  Black  pieces  as  minus . 
MPC(16)  and  0PC(16)  contain  the  locations,  in  the  form 

lOxI+J,  of  the  machine  and  opponent  pieces  respec- 
tively.  Each  piece  has  a  specific  number  assigned 
to  it:   the  pawns  1-8,  the  knights  9  and  10,  the 
bishops  11  and  12,  the  rooks  13  and  1*1,  the  queen 
15  and  the  king  16 . 
MVALPC(16)  and  0VALPC(l6)  contain  the  values  of  each  piece 
according  to  the  standard  P=10,  N=30,  B=32,  R=50, 
Q=90  and  K=9900.   If  a  pawn  is  promoted,  its  value 
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is  changed  accordingly,  usually  to  that  of  a  queen. 
PLAYER  can  accept  any  number  of  pawn  promotions  to 
any  piece  value  although  for  its  own  pawn  promotions 
it  always  chooses  to  promote  to  a  queen.   (Lack  of 
this  facility  cost  COKO  III  a  game  [30].)   If  a  piece 
is  captured  its  value  (and  corresponding  location  in 
OCCSQ  and  MPC  or  OPC)  is  set  to  zero. 

MPOSMV(N)  and  OPOSMV(N)  contain  the  possible  moves  of  the 
machine  and  opponent  respectively.   Moves  are  en- 
coded as  100  times  the  piece  number  plus  the  square 
to  which  it  can  move.   For  example,  a  possible  move 
of  242  means  that  piece  number  2  can  move  to  square 
42  (or  4,2).   Castle  moves  are  specially  coded  as 
98  for  castle  left  or  99  for  castle  right. 

MPHMV(N)  and  OPHMV(N)  contain  phantom  moves  for  machine  and 
opponent  respectively.   A  phantom  move  is  not  a 
legal  move,  but  represents  a  conceivable  move  under 
certain  circumstances.   For  instance,  assume  that 
the  computer's  piece  number  9  has  a  possible  move 
to  square  57*  which  is  unoccupied.   Now  if  square 
57  subsequently  becomes  occupied  by  another  machine 
piece,  then  the  computer  no  longer  has  MPOSMV(N)=957 , 
because  it  cannot  capture  its  own  piece.   However 
there  will  now  be  generated  MPHMV(M)=957»  indicating 
that  if  the  piece  on  square  57  is  captured,  then 
piece  number  9  can  recapture.   Phantom  moves  are 
also  used  to  indicate  double  attacks,  as  when  a 
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rook  rests  behind  another  rook.   The  rear  rook  has 
phantom  moves  "through"  the  front  rook  to  indicate 
that  both  can  attack  the  same  square.   The  same 
holds  true  for  rooks  and  a  queen,  bishops  and  a 
queen,  and  pawns  and  a  bishop  or  queen.   Any  number 
of  pieces  in  line  can  be  handled.   All  PHMV's  (and 
POSMV's)  are  deleted  if  they  place  the  friendly  king 
in  check  (that  is,  if  the  piece  is  pinned). 

MATTSQ(8,8)  and  OATTSQ(8,8)  contain,  for  each  square,  the 
sum  of  value  and  sum  of  the  number  of  pieces  at- 
tacking that  square,  for  machine  and  opponent  re- 
spectively.  Thus  if  a  queen  and  pawn  are  both 
attacking  the  same  square  -  say  square  22  -  then 
MATTSQ(2,2)  would  contain  10002  (100  x  (90+10)+2). 
As  in  the  case  of  MPHMV  and  OPHMV,  MATTSQ  and 
OATTSQ  are  filled  to  reflect  the  fact  that  a  Bishop 
and  a  Queen,  for  example,  on  the  same  diagonal  can 
both  attack  the  same  square.   It  is  because  of  this 
feature  that  PLAYER  can  predict  the  results  of  ex- 
changes without  a  tree  search.   However,  in  order  to 
make  its  prediction,  PLAYER  assumes  that  each  side 
will  capture  with  its  least  valuable  piece,  given  a 
choice.   This  assumption  may  not  be  valid  if,  for 
example,  the  opponent  sacrifices  a  high-value  piece 
for  positional  advantage. 

MPAR(L)  and  OPAR(L)  contain  the  values  of  the  evaluation 
parameters  for  machine  and  opponent  respectively. 
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At  present  there  are  12  parameters  developed  for  the 
opponent  and  18  for  the  machine.   These  parameters 
will  be  discussed  in  greater  detail  below. 

NWT(L)  contains  the  set  of  weights  used  by  PLAYER  in  conjunc- 
tion with  MPAR  and  OPAR  to  make  a  decision.   NWT  is 
the  array  that  is  modified  by  PRO  in  the  training 
phase  of  PLAYER. 

MCAS, OCAS, MCA, OCA, MENP,OENP  are  six  important  flags  which  are 
used  throughout  the  program  to  indicate  the  status 
of  castling  and  en  passant  capture  possibilities. 

2.  MAIN 

MAIN  is  a  fairly  short  program  which  reads  MPC,  OPC, 
the  six  flags  and  the  opponents  move,  calls  SITU  with  this 
information  and  based  on  the  output  from  SITU,  calls  SITU 
again  for  each  possible  move  of  the  machine.   MAIN  saves 
the  best  move  returned  from  SITU  as  determined  by  MPAR  and 
OPAR.   It  then  prints  the  move  chosen  as  well  as  the  new 
values  for  MPC,  OPC  and  the  six  flags. 

3.  SITU 

SITU  is  the  controlling  subroutine  for  the  other 
four  subroutines  in  the  program.   It  calls  the  other  sub- 
routines in  a  prescribed  order,  but  can  be  accessed  as 
though  it  were  the  machine's  or  the  opponent's  turn  to  move. 

SITU  first  calls  EXEC  to  execute  the  move  just  made. 
The  move  made  may  be  an  actual  move  from  the  opponent  or  a 
possible  move  by  the  computer.   Now  SITU  calls  MOVES,  CHECK 
and  PARGEN  to  determine  the  set  of  parameters  for  the  player 
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whose  turn  it  is  to  move.   The  sets  of  parameters  MPAR  and 
OPAR  are  returned  to  MAIN. 

4.  EXEC 

EXEC  is  the  subroutine  which  executes  a  move.   The 
move  executed  may  be  an  actual  move,  phantom  move  or  possi- 
ble move,  depending  on  MAIN'S  call  to  SITU.   In  addition  to 
normal  moves,  EXEC  also  handles  castling,  en  passant  capture 
and  pawn  promotion.   It  also  changes  the  status  of  the  six 
flags  if  a  castling  move  is  made  or  if  a  pawn  moves  so  as 
to  be  in  a  position  to  be  captured  en  passant.   (Castle  flag 
changes  are  also  made  if  either  rook  moves  from  its  original 
position,  if  the  king  moves  or  if  any  of  the  squares  over 
which  the  king  would  pass  while  castling  are  such  that  the 
king  would  be  in  check,  or,  of  course,  if  the  king  is  in 
check.)   If  a  pawn  is  promoted,  EXEC  changes  the  value  in 
MVALPC  or  OVALPC  and  OCCSQ  of  the  piece  concerned  to  that 
of  a  queen.   If  a  piece  is  captured  by  the  move  executed, 
EXEC  changes  the  pertinent  values  of  MPC  and  MVALPC  (or  OPC 
and  OVALPC)  and  OCCSQ  to  zero. 

5.  MOVES 

MOVES  is  the  subroutine  which  develops  all  possible 
moves  for  each  player  based  on  a  given  situation.   It  is 
also  used,  though  not  concurrently,  to  determine  whether  a 
player  is  in  check. 

If  MOVES  is  called  with  NCHK=0,  it  will  return  the 
set  of  all  possible  moves,  all  phantom  moves,  and  attacking 
squares  for  one  player.   The  set  of  moves  returned  includes 
special  moves  such  as  en  passant  capture  and  castling. 


If  MOVES  is  called  with  NCHK=1,  it  will  return  the 
value  NCHK=0  if  the  player  is  not  in  check  and  the  value 
NCHK=1  if  the  player  is  in  check.   NCHK  is  the  only  mean- 
ingful parameter  returned  when  MOVES  is  called  with  NCHK=1. 

6.  CHECK 

One  of  the  basic  concepts  of  chess  is  that  of  a 
pinned  piece.   A  piece  is  pinned  if  its  movement  will  result 
in  its  own  king  being  in  check;  any  such  move  is  illegal. 
Since  MOVES  will  not  detect  a  pinned  piece,  subroutine  CHECK 
was  written  to  accomplish  this  detection. 

CHECK  receives  as  input  the  possible  moves  generated 
by  MOVES,  saves  all  necessary  arrays  and  flags,  calls  EXEC 
to  execute  each  possible  move  and  then  calls  MOVES  with 
NCHK=1  to  determine  if  the  possible  move  is  legal.   Illegal 
moves  are  eliminated  from  the  list  of  possible  moves.   The 
process  is  repeated  for  each  phantom  move,  and  in  all  cases 
MATTSQ  (or  OATTSQ)  is  reduced  accordingly  (except  in  the 
case  where  the  MATTSQ  element  is  the  location  of  the  op- 
posing king,  since  a  pinned  piece  can  still  check). 

The  combination  of  MOVES  and  CHECK  ensures  that  only 
legal  moves  and  legitimate  attacking  squares  are  presented 
to  PARGEN  for  evaluation. 

7.  PARGEN 

PARGEN  receives  as  input  from  EXEC,  MOVES  and  CHECK 
the  arrays  OCCSQ,  MPC ,  OPC,  MPOSMV,  MPHMV  and  MATTSQ  (or 
OPOSMV,  OPHMV  and  OATTSQ)  and  uses  them  to  generate  a  set 
of  parameters  which  can  be  used  to  evaluate  the  current  board 
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position.   Note  that  the  current  board  situation  presented 
to  PARGEN  can  be  either  the  original  position  or  that  arising 
from  the  execution  of  one  of  the  machine's  possible  moves. 

Parameters  1  through  11  are  generated  for  both 
players]  parameters  12  through  17  are  generated  for  the  ma- 
chine only;  parameter  20  is  the  weighted  sum  of  all  the  other 
parameters . 

The  following  is  a  description  of  the  parameters 
generated  by  PARGEN: 

PAR(l)   Mobility:   PAR(l)  is  the  number  of  all  possible  legal 
moves  from  the  current  board  position.   If  PAR(1)=0,  then 
the  position  is  checkmate. 

PAR(2)   Material  Value:   PAR(2)  is  the  sum  of  the  values  of 
all  the  pieces  still  on  the  board,  exclusive  of  the  king  (the 
king  cannot  be  lost). 

PAR(3)   Pawn  advancement:   PAR(3)  is  the  sum  of  the  squares 
of  the  ranks  of  each  pawn.   This  parameter  rewards  pawn  ad- 
vancement in  the  hope  of  eventual  pawn  promotion. 
PAR(4)   Center  Control:   PAR(4)  gives  credit  for  each  pawn 
in  the  center  four  squares.   It  also  gives  credit  for  at- 
tacking opposing  center  pawns  or  defending  own  center  pawns. 
The  importance  of  center  control  in  chess  has  been  known 
for  centuries . 

PAR(5)   Pressure:   PAR(5)  gives  points  for  reducing  the 
number  of  opponent  moves  to  one.   It  also  gives  points  if 
the  opponent  can  make  only  king  moves . 

PAR(6)   King  Protection:   PAR(6)  gives  points  for  own  pieces 
directly  in  front  of  own  king.   This  parameter  was  designed 
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to  reward  good  castle-pawn  structure. 

PAR(7)   Castle:   PAR(7)  gives  100  points  if  any  possible  move 
is  a  castle  move.   It  gives  200  points  if  the  player  has 
castled. 

PAR(8)  Early  Development:  PAR(8)  gives  points  for  moving 
own  pieces  (bishop,  knight  or  queen)  off  the  back  rank. 
PAR(9)  Attack  I:  PAR(9)  gives  points  for  a  queen  or  rook 
attacking  the  opponent's  back  rank.  It  also  gives  points 
for  a  queen  or  bishop  attacking  the  opponent  king's  castle 
pawn  structure. 

PAR(IO)   Attack  II:   PAR(IO)  gives  points  for  attacking  any 
opponent  pieces. 

PAR(ll)   Pawn  Development:   PAR(ll)  deducts  points  if  a  pawn 
is  blocked  by  an  opposing  pawn.   This  parameter  is  designed 
to  operate  in  conjunction  with  PAR(3). 

PAR(12)   Exchange:   PAR(12)  determines  the  result  of  all 
possible  exchanges.   It  deducts  points  severely  if  the  ex- 
change will  be  lost;  it  gives  points  if  the  exchange  would 
be  won  (but  note  that  the  opponent  will  probably  make  an- 
other move  rather  than  participate  in  a  losing  exchange) . 
PAR(13)   Pawn  Pressure:   PAR(13)  deducts  points  if  an  op- 
posing pawn  can  threaten  a  piece  in  one  move  without  being 
captured.   This  is  an  attempt  to  eliminate  fruitless  moves. 
PAR(l^)   Danger  I:   PAR(l^)  deducts  points  if  the  opponent 
can  move  a  queen  or  rook  to  an  open  file  without  being  cap- 
tured.  It  deducts  further  points  if  opponent  will  have  more 
pieces  attacking  the  back  rank  than  the  machine  has  defenders 
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PAR(15)  Danger  II:  PAR(15)  deducts  points  if  the  opponent 
can  move  a  queen  or  bishop  to  an  open  diagonal  or  if  he  can 
move  a  queen  or  rook  to  a  position  such  that,  without  being 
captured,  he  can  attack  the  machine's  castle-pawn  structure. 
It  deducts  further  points  if  the  attackers  of  the  machine's 
pawn  structure  outnumber  the  defenders. 

PAR(l6)   Attack  III:   PAR(l6)  gives  points  for  the  machine 
being  in  position  to  move  to  an  open  file  in  the  same  manner 
as  PAR( 14) . 

PARC  17)   Attack  IV:   PAR (17)  gives  points  for  the  machine 
being  in  position  to  move  to  an  open  diagonal  or  to  attack 
the  opponent's  castle-pawn  structure  in  the  same  manner  as 

PAR( 15) • 

After  determining  these  parameters,  PARGEN  multi- 
plies the  resultant  parameter  vector  by  the  input  weight 
vector  NWT,  and  transfers  the  result  via  SITU  to  MAIN. 

C.   PRO 

PRO  is  a  short  program  which  carries  out  the  adaptation 
algorithm  of  Widrow  and  Hoff  [31]: 

W..,  =  W.  +  -fr"  e.X.  . 
3+1  3         n+1  3    3 

PRO  reads  the  value  of  the  weights  and  parameters  as 
provided  by  PLAYER,  performs  the  adaptation  algorithm,  and 
prints  the  results. 

The  critic  function  described  in  the  section  on  adaptive 
logic  is  performed  by  the  programmer.   The  programmer  deter- 
mines the  worth  of  a  PLAYER  decision  by  consulting  standard 
texts,  asking  PLAYER  to  decide  a  move  from  a  published  position, 

44 


and  comparing  PLAYER'S  move  to  that  of  the  expert  involved 
in  the  published  position.   Any  arbitrary  position  can  be 
presented  to  PLAYER  for  training  or  for  testing. 

D.   SUMMARY 

As  has  been  shown,  the  basic  working  method  of  most 
other  chess  programs  is  as  follows:   First  successor  nodes 
to  the  problem  situation  are  generated  and  ordered  in  a 
plausibility  hierarchy  according  to  a  heuristic  value  func- 
tion,  the  N  "best"  nodes  are  expanded  and  searched  as 
deeply  as  possible  within  real-time  constraints,  the  search 
being  guided  by  chess  heuristics.   The  end  nodes  of  the 
tree  generated  are  evaluated,  using  the  same  or  another  set 
of  heuristics,  and  the  evaluation  is  "backed-up"  to  the 
problem  node  in  order  to  decide  which  move  to  make.   The 
purpose  of  searching  through  so  many  nodes  is  to  attempt  to 
make  up  for  the  fact  that  the  original  plausibility  ordering 
is  imperfect . 

PLAYER  and  PRO  are  based  on  the  postulate  that  there  is 
a  perfect  value  function  in  chess,  that  this  value  function 
depends  on  specific  knowledge  of  every  aspect  of  the  given 
problem  situation,  and  that  this  value  function  can  be  de- 
termined with  the  aid  of  adaptive  logic. 

The  method  of  PLAYER  and  PRO  is  to  generate  the  first 
successor  nodes  to  the  problem  situation  only,  to  evaluate 
these  nodes  as  completely  and  specifically  as  possible,  and 
to  train  the  value  function  generator  -  the  decision-maker  - 
to  make  the  best  decision  using  adaptive  logic  techniques. 
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V.   CONCLUSIONS 

A.   EVALUATION  METHOD 

The  method  chosen  to  evaluate  the  capabilities  of  PLAYER 
in  ordering  moves  is  one  in  which  quantitative  results  are 
produced.   It  is  felt  that  these  results  are  more  meaning- 
ful than  a  subjective  appraisal  based  on  actual  play. 

In  order  to  test  PLAYER,  AO  chess  positions  were  chosen 
from  three  chess  texts.   Most  of  the  positions  were  taken 
from  those  appearing  in  actual  games  between  grandmasters; 
others  were  positions  used  for  instructional  purposes.   In 
each  case  it  was  assumed  that  the  move  made  by  the  expert 
is  in  fact  the  best  move.   PLAYER  assessed  each  position 
and  printed  all  moves  possible  from  that  position,  ordered 
according  to  its  evaluation  function.   The  rank  assigned 
the  recommended  move  by  PLAYER  was  used  as  an  indication  of 
the  worth  of  PLAYER'S  evaluation  function  for  that  position. 
In  other  words,  if  PLAYER  were  perfect,  then  it  would  always 
rank  the  recommended  move  as  number  one  -  it  would  always 
make  the  recommended  move.   The  closer  PLAYER  is  to  perfec- 
tion, the  higher  it  will  rank  all  recommended  moves. 

All  positions  evaluated  are  illustrated  in  the  diagrams 
in  Appendix  A.   In  these  diagrams,  abbreviations  for  the 
chess  pieces  are  used  as  follows:   K=King,  Q=Queen,  R=Rook, 
B=Bishop,  N=Knight  and  P=Pawn.   Pawns  are  named  according 
to  their  file  (see  Figure  9);  that  is,  the  pawn  in  the 
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CHESS  NOTATION 
MOV19 

ISO  IN©  190  IX  IM  I9M  INS  IHM 

QR8  QN8  QB8  Q8  K8  KB8  KN8  KR8 

29b  2Nb  29b  2b  2)1  29)1  2NM  2HM 

QR7  QN7  QB7  Q7  K7  KB7  KN7  KR7 

£ab  ENb  £gb  £b  Em  £9m  £nm  £hm 

QR6  QN6  QB6  Q6  K6  KB6  KN6  KR6 

t7Hb  t7Nb  f?9b  tyb  W  t79M  tjM  tyHM 

QR5  QN5  QB5  Q5  K5  KB5  KN5  KR5 

^Hb  ^Nb  ^9b  £b  £M  ^9M  ^NM  ^HM 

QR4  QN4  QB4  QM  K4  KB4  KN4  KR4 

9Hb  9Nb  99b  9b  9M  99^  9NM  9HM 

QR3  QN3  QB3  Q3  K3  KB3  KN3  KR3 

Znb  ZNb  Zgb  Zb  Zm  Zg>i  Znx  Zhm 

QR2  QN2  QB2  Q2  K2  KB2  KN2  KR2 

8Hb  8Nb  89b  8b  8M  89H  8NM  8HM 

QR1  QN1  QB1  Ql  Kl  KB1  KN1  KR1 


WHITE 


Figure  9 
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Queen's  Rook  (QR)  file  is  called  the  Queen's  Rook's  Pawn, 
abbreviated  QRP.   A  minus  sign  is  used  to  indicate  Black 
pieces;  a  plus  sign  is  used  for  White.   The  moves  are  listed 
in  standard  chess  notation,  for  example  Q-QB3  means  the 
Queen  is  moved  to  square  QB3  (see  Figure  9).   Where  no  con- 
fusion can  arise,  the  first  letter  of  the  piece  designation 
or  square  designation  may  be  omitted,  as  in  Q-B3  vice  Q-QB3 
or  P-K4  vice  KBP-K4 .   An  'x'  indicates  capture,  for  example 
Queen  takes  Knight  would  be  abbreviated  QxN. 

Where  moves  are  listed  in  a  line  of  text,  as  in  Figure 
20,  for  example,  they  are  always  listed  in  the  order  White 
move,  Black  move.   Moves  followed  by  an  exclamation  point 
(!)  are  judged  -  by  the  expert  -  to  be  very  good  moves; 
moves  followed  by  two  exclamation  points  (.'.')  are  judged 
unusually  good  moves.   The  computer  is  playing  White  in  all 
moves  except  moves  number  21  to  23.   Recommended  moves  are 
all  underlined  in  the  diagrams  of  Appendix  A. 

It  should  be  emphasized  that  this  test  is  a  very  de- 
manding one.   The  forty  situations  include  samples  from  the 
opening,  middle  and  end  games.   There  are  piece  sacrifices, 
developmental  moves  and  positional  moves  included.   Almost 
half  the  recommended  moves  in  these  selected  situations  were 
judged  very  good  or  unusually  good  by  the  standards  of  chess 
experts . 

B.   RESULTS 

The  results  of  the  test  of  PLAYER  are  shown  in  Table  I. 
The  columns  of  this  table  show  the  number  of  the  position 
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Position 
Number 

1. 

2. 

3. 
4. 

5. 
6. 

7. 

8. 

9. 

10. 

11. 

12. 

13. 

14. 

15- 
16. 

17. 
18. 

19. 
20. 
21. 
22. 

23. 
24. 


TABLE  I. 

Comments 

Total  Moves 

Ranking 

(!!)(S) 

55 

48 

39 

7 

45 

9 

47 

15 

48 

3 

(S)(!) 

53 

42 

(!) 

45 

21 

(!) 

48 

4 

45 

6 

38 

1 

37 

10 

44 

29 

41 

7 

(!) 

36 

7 

(!) 

42 

1 

(!) 

46 

22 

(!!)(S) 

50 

31 

40 

2 

20 

1 

29 

3 

20 

4 

20 

1 

27 

1 

(!) 

37 

2 
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25. 
26. 

27. 
28. 

29. 
30. 

31. 
32. 

33. 
34  - 

35. 
36. 
37. 
38. 

39. 
40 


(!) 

!) 
!) 
!) 
I) 

ID 

!) 

!) 


38 
37 
35 
30 
22 
51 
45 
39 
37 
37 
43 
41 
44 
42 
43 
31 


4 
1 

9 
1 
1 
1 

5 
11 

29 
1 
2 
1 
1 
2 
1 
1 


TABLE  I.   Continued 
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considered,  comments  concerning  the  recommended  move,  the 
total  number  of  moves  evaluated  by  PLAYER  for  each  position 
and  PLAYER'S  ranking  of  the  recommended  move  for  each 
position. 

The  average  number  of  moves  per  position  generated  by 
PLAYER  for  evaluation  was  39.   Of  the  ^0  positions  considered, 
PLAYER  ranked  the  recommended  move  in  the  top  ten  moves  31 
times.   The  recommended  move  was  ranked  in  the  top  five 
moves  2k   times,  and  14  times  PLAYER  chose  the  recommended 
move  exactly. 

Piece  sacrifice  moves  -  designated  by  (S)  in  Table  I  - 
were  all  ranked  very  low;  this  is  to  be  expected  as  PLAYER 
was  programmed  to  avoid  sacrifice  if  at  all  possible. 

With  two  exceptions,  all  the  moves  ranked  lower  than 
ten  were  either  sacrifice  moves  of  'very  good'  moves  -  or 
both.   These  are  precisely  the  kinds  of  moves  which  require 
the  most  profound  understanding  of  the  subtleties  of  chess; 
that  is,  these  are  the  moves  which  separate  the  master  from 
the  amateur. 

PLAYER  ranked  one  'unusually  good'  move  in  the  top  five, 
ranked  9  'very  good'  moves  in  the  top  ten  (7  of  these  in  the 
top  five)  and  found  k    'very  good'  moves  exactly. 

Judged  in  the  context  of  other  existing  chess  programs, 
PLAYER'S  performance  is  impressive.   The  results  are  suffi- 
ciently encouraging  to  warrant  further  investigation  into 
what  is  demonstrably  a  viable  technique. 

Improvement  in  PLAYER'S  performance  can  be  obtained  by 
the  generation  and  refinement  of  more  parameters  and  by  more 
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training  in  conjunction  with  PRO.   In  particular,  a  means 
should  be  found  to  determine  when  a  piece  sacrifice  will 
result  in  a  winning  position  or  combination.   In  order  to 
make  a  decision  of  this  kind,  the  computer  would  have  to 
be  programmed  to  develop  and  examine  a  small  set  of  plans. 
That  is,  the  computer  would  select  a  few  key  pieces,  and 
for  each  selected  piece  examine  a  few  sacrifice  moves  to 
determine  whether  the  projected  sacrifice  would  result  in 
positional  gain.   (The  set  of  all  possible  sacrifices  could 
not  be  examined  because  of  time  constraints.)   If  a  means 
could  be  found  to  have  the  computer  select  the  'best  set' 
of  pieces  and  moves  for  possible  sacrifice,  the  resulting 
program  would  for  the  first  time  approach  the  level  of 
sophistication  of  the  human  mind. 
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APPENDIX  A:   EVALUATION  POSITIONS 
Position  1 


-R 

-B 

-R 

-K 

-P 

-P 

-Q 

-P 

-P 

-P 

-P 

-N 

+N 

+  P 

+B 

+  P 

-N 

+Q 

+P 

+N 

+  P 

+  P 

+  P 

+R 

+R 

+K 

Recommended  Move  [32] 
1.   R-K8!! 


Figure  10 . 
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Positions  2-6 


-R 

-B 

-R 

-K 

-P 

-P 

-B 

-Q 

-P 

-P 

-P 

-N 

-N 

-P 

-P 

+P 

+  P 

+B 

+N 

+N 

+P 

+  P 

+  P 

+P 

+  P 

+R 

+B 

+Q 

+R 

+K 

Recommended  Moves  [33] 
2.   N-Q5     Q-Q3, 
N-Kl, 
B-Ql, 
P-Q3, 


then 

3. 

B-KN5 

then 

k. 

Q-B2 

then 

5. 

B-K3 

then 

6. 

B-QN5! 

Figure  11. 
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Positions  7-10 


-B 

-R 

-N 

-K 

-R 

-B 

-P 

-Q 

-P 

-P 

-P 

-P 

+N 

-P 

+N 

+  P 

-N 

+P 

+P 

+Q 

+P 

+  P 

+  P 

+B 

+B 

+R 

+R 

+K 

Recommended  Moves  [3M-] 
7.   B-K^J!      R-B2, 
B-Q2, 
NxN, 


then  8.   Q-B3! 


then  9.   NxB 


then  10.  NxP. 


Figure  12. 
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Positions  11  -  12 


-R 

-K 

-P 

-P 

-P 

-p 

-P 

-Q 

+  P 

+p 

-R 

+P 

+R 

+  P 

+Q 

+  P 

+R 

+K 

Recommended  Moves  [35] 
11.   Qxj^     RxQP, 
then  12.   RxR. 


Figure  13. 
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Position  13 


-R 

-K 

-R 

-N 

-P 

-B 

-P 

-P 

-p 

-Q 

+p 

-p 

-P 

+p 

+Q 

+  P 

+B 

+P 

+  P 

+  P 

+  R      ■ 

-N 

+R 

+K 

Recommended  Move  [36] 
13.   R-K4. 


Figure  Ik. 
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Positions  14  -  16 


-R 

-B 

-R 

-K 

-Q 

-P 

-P 

-P 

-P 

-P 

-P 

+P 

+Q 

+P 

+B 

+  P 

+  P 

+  P 

+P 

+  R 

+R 

+K 

Recommended  Moves  [37] 

14.   KR-B1 !  B-R3, 

then  15.   R-B7!  Q-Kl, 
then  16.   Q-R3'. 


Figure  15. 
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Positions  17  -  18 


-R 

-R 

-B 

+Q 

-P 

-K 

-P 

-Q 

-P 

-B 

-P 

-N 

+N 

+N 

+  P 

+  P 

+P 

+P 

+P 

+P 

+R 

+R 

+K 

Recommended  Moves  [38] 
17.   N-Q7!  .'    NxN, 
then  18.   RxN . 


Figure  16 . 
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Positions  19  -  20 


-R 

-N 

-B 

-Q 

-K 

-B 

-N 

-R 

-P 

-P 

-P 

-P 

-P 

-P 

-P 

-P 

+  P 

+  P 

+  P 

+p 

+P 

+  P 

+  P 

+  P 

+R 

+N 

+  B 

+Q 

+K 

+B 

+N 

+  R 

Recommended  Moves  [39] 
19.   P-K4    P-K4, 
then  20.   N-KB3. 


Figure  17. 
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Position   21 


-R 

-N 

-B 

-Q 

-K 

-B 

-N 

-R 

-P 

-P 

-P 

-P 

-P 

-P 

-P 

-P 

+P 

+P 

+P 

+P 

+  P 

+  P 

+  P 

+  P 

+H 

+N 

+B 

+  Q 

+K 

+B 

+N 

+R 

Recommended  Move  [40] 
21.  ...      P-K4. 


Figure  18. 
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Positions  22  -  23 


-R 

-N 

-B 

-Q 

-K 

-B 

-N 

-R 

-P 

-P 

-P 

-P 

-P 

-P 

-P 

-P 

+P 

+P 

+P  • 

+P 

+P 

+P 

+  P 

+P 

+R 

+N 

+B 

+Q 

+  K 

+B 

+N 

+  R 

Recommended  Moves  [41] 

22 P-Q4, 

then  23.  P-QB4    P-K3. 


Figure  19 . 
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Positions  24  -  26 


-R 

-p 

-B 

-P 

-K 

+p 

-Q 

-P 

-P 

+R 

-P 

+  P 

-P 

-N 

+P 

+Q 

+N 

+N 

+B 

+P 

+  P 

+  K 

Recommended  Moves  [42] 
2k.      Q-B3!     P-B3, 
then  25.   N-Q2 !     N-B5, 
then  26.   K-Bl 


Figure  20. 
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Positions  27  -  29 


-N 

-R 

-K 

-p 

-B 

-R 

-P 

-p 

-p 

-P 

+N 

-P 

+N 

+p 

-P 

+  P 

+P 

+p 

+p 

+  P 

+R 

+  P 

+R 

+K 

Recommended  Moves  [43] 
27.   R/R3-KB3!    NxN, 
then  28.   RxN  I         RxR, 
then  29.   KPxR! 


Figure  21. 
6k 


Position  30 


-R 

-R 

-P 

-P 

-Q 

-N 

-K 

-P 

+N 

-P 

-P 

+Q 

+P 

+  P 

+P 

+P 

+P 

+  R 

+R 

+K 

Recommended  Move  [44] 
30.   N-N5ch! 


Figure  22. 
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Position  31 


-K 

-R 

-R 

-p 

-B 

-N 

-Q 

-P 

-P 

+Q 

+  P 

-P 

-B 

-P 

+  P 

+  P 

+N 

+P 

+N 

+  P 

+  P 

+B 

+K 

+R 

+R 

Recommended  Move  [45] 
31.   Q-N71! 


Figure  2  3 
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Positions  32  -  34 




-R 

-K 

+R 

-P 

-P 

-Q 

-N 

-P 

+B 

-P 

-P 

+P 

+P 

+  Q 

+  P 

+P 

+  P 

+K 

Recommended  Moves  [4-6] 
32.   Q-K5 !     R-Rl, 
then  33.   R-B71     Q-K3, 
then  3^.   QxQ 


Figure  24. 
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Positions  35  -  37 


-K 

-R 

-B 

-R 

-p 

-P 

-P 

+Q 

+R 

+N 

-P 

-N 

-Q 

+p 

+P 

-P 

-P 

+P 

+  P 

+P 

+P 

+R 

+N 

+K 

Recommended  Moves  [47] 
35.   N-QB6     PxN, 
then  36.   R-QN1     K-Rl, 
then  37.   Q-Bl  mate. 


Figure  25. 
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Positions  38  -  40 


-R 

-K 

-Q 

-P 

-P 

-B 

-P 

-P 

-P 

-P 

-R 

+P 

+Q 

+B 

+P 

+  P 

+R 

+  P 

+P 

+P 

+R 

+K 

Recommended  Moves  [48] 
38.   R-B8     RxR3 
then  39.   R-B8    QxR, 
then  40.   Q-Q8  mate. 


Figure  26. 
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PLAYER 


IMPLICIT    INTEGERIO) 

DIMENSION    MPC(16 ) ,CPC( 16)  ,  MVALPCQ6) ,  GVALPCU6)  , 
.    OCCSy( 8,8) , MPOSMVi 15) , QPGSMV(75) fMPAR(20J , UPAR(20) , 
.     J0CCSQ<8,8) ,OS{65) ,MTHR(20) 

DATA    MVALPC/8*10, 2*30, 2*32, 2*50, 90, 9900/ , 
.     GVALPC/8*10, 2*30, 2*3  2,2*5  0,90,9900/ 

DG    15    1=1,8 

DO    15    J =1,8 

OCCSCH  I  ,  J)=0 
15  CCNTINUE 

READ(5,150)  (MPC(I) ,1=1,16) 
150  FCRMAT< lol4) 

REA0(5,15D)  <0PC( I  )  ,1=1,16) 

READ(5,  200)  MENPjOENP,  MCAS,  OCAS  ,  MCA,  OCA 
200  FCRMATC6I4) 

READ(5,210)  OMV 
210  FORMAT!  18) 

wRITE(6,215)  GMV 
215  FCPMAT(3X,I8) 

DG  300  K-1,16 

IF(MPC(K).EQ.O)  GO  TO  250 

I=MPC(K)/10 

J  =  MPC(K)-JLO*I 

OCCSQI I , J)=MVALPC(K) 

GO  TO  2  60 
250  fVALPC(K)=0 
260  IF(CPC<K) aEU.OI  GO  TO  280 

I=GPC(K)/10 

J=GPG(K)-10*I 

OCCS0( I , J)=-GVALPC(K) 

GO  TO  300 
280  GVALPC(K)=0 
300  CONTINUE 

MTURN=1 

CALL    SITU<MPC,OPC,OCCSQ,MVALPC, CVALPC , MPOSMV, MNT , 
.    MTURN,MCA,OCA,MPAR,GPAR,OMV,MCAS,OCAS»MENP ,OENP) 

DC    1000    K^l,20 

MTHRCK1 =MPAR(K)-OPAR(K) 
10  00  CGNTIiMUE 

WRITE(o,2400) 
2400  FORMAT (  12X, 'MCAS'  ,5X,« OCAS'  ,5X, • MENP' ,5X, 'OENP»  , 
.  5X, 'MCA* ,5X, 'CCA* //) 

WRITE  16, 18 00)  MCAS, OCAS, MENP, OENP, MCA, OCA 
1800  FGRMAT(6X,6I9//) 

IF(MNT.EQ.O)  GO  TO  4410 

127  =  0 
1827  MGTR=-10000 

MATE=0 

DO  4000  N=1,MNT 

IF  I I27.EQ.0)  GO  TO  2005 

IF(N.NE.MRMV)  GO  TO  4000 
2005  CONTINUE 

DC  2150  K=l,16 

K1=K+16 

K2=K+32 

K3=K+48 

OS(K)=MPC(K) 

0S(K1)=UPC(K) 

0S(K2) =MVALPC(K» 

0S(K3) =CVALPC(K) 
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2150  CONTINUE 

DO  2250  1=1,8 

DO  2250  J  =  l,8 

JGCCSQI 1 ,J)=CCCSQ( If J) 
2250    CONTINUE 

M1=MCAS 

M2=0CAS 

M3=MCA 

M4-QCA 

M5=MENP 

M6-0ENP 

MP=MPGSMV(N)/100 

MMV=100*MPQSMV<  N ) +MPC( MP) 

IF(MPOSMViN) .LT. 100)    MMV=MPOSMV(N) 

MTURN*-1 

CALL  SITUC OPC,MPC,O0CSQ,OVALPC,^VALPC,OPOSMV,ONT, 
.  MTURNfOCAfMCAtOPARfMPARfMMV,OCASfMCAS,OENP,MENPj 

DC  2000  K=l,20 

MPAR(K. )  =MPAk(K)-OPAR(K) 
2000  CONTINUE 

IF{0PAR(2Q)  .EQ.O)  MPAR( 20 ) =MP AR ( 20) +3000 

IF(OPAR<20) .EQ.O)  MATE=  l 

DC  2200  K=i,20 

GPAR(K) =MRAR(Ki-MTHR(K) 
2200  CONTINUE 

MRK=MPGSMV(N)/100 

1F(MRK.NE,16)  GO  TO  2348 

IFCM3.EQ.100)  GO  TO  2348 

MP AR( 20 )=M PARI  20) -50 
2348  WRITE(6,27i0)  hPOSMV IN)  , { MPARI K )  ,K=i , 17 ) , MP AR( 20) 
2710  F0RMAT(2X,I5,2Xf 17I5f2Xi 16) 

IF(MPAR( 20) .GT.MGTR)  MPMV=N 

IFIMPARI20) .GT.MGTR)  MGTR=MPAR( 20) 

IF(  I27.EQiU)  GO  TO  3129 

IHMPARI5)  .GT.O)  wRITE(o,2863) 
2863  FORMAT (5X , *  CHECK ■  ) 

WRITE(6,2853)  I MPC ( K)  ,K  =  1 , 16 ) 
2853  FORMAT! 1614) 

WR1TE(6,2853)  ( OPC (K)  ,K  =  1 , 16) 

WRITE(6,2859) 
2859  FORMAT! ^X,  «MENP'  ,2X, •OENP' , 2X, »MCAS' ,  2X ,  'OCAS1  , 
.  2X, 'MCA* ,2X, «OCA' ) 

WRITE (6, 2 3 56)  MENP, OENP, MC AS , OCAS ,MCA , OCA 
2856  F0RMATI6I6) 

GO  TO  4450 
3129  DO  3i50  K=l,16 

K1=K+16 

K2=K+32 

K3=K+48 

MPC(K)=CS!K) 

0PC(K)=0SIK1) 

MVALPC(K)=US(K2) 

OVALPCI K)=0S(K3) 
3150  CONTINUE 

DO  3250  1=1,8 

DO  3250  Jsl,8 

OCCSQ(  I  ,  J),  =  JOCCSQ<  I,  J) 
3250  CONTINUE 

M0AS=M1 

0CAS=M2 

MCA=M3 

0CA=M4 

MENP=M5 

0ENP=M6 
4000  CONTINUE 

hLS=FPOSMV(MPMV) /100 

IF(MLS.EG*0)  MLS=1 

MLS=MPC (MLS) 

WRITE(o,42i>5)  MPOSMVIMPMV)  , MLS 
4255  F0RMATI5X,  'MY  MOVE  IS1, 18, 14) 

IF(MATE.NE-O)  GO  TO  4300 

GO  TO  4450 
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4300  WRI1E(6,4315) 

4315  FURMAT(5Xf 'CHECKMATE*) 

GG  TO  4450 
4410  WRITE(o,4425) 
4425  FGRMAT(5Xf«I  RESIGN*) 
4450  IF(I27.EQ.1J  GG  10  4510 

12  7  =  1 

GG  10  1827 
4510  S1GP 

END 

SUBROUTINE    SIlU(MPC,0PC,0CCSGfMVALPCtOVALPC,MPOSMV, 
.     MNT,MTURN,MCA,OCATMPAR,OPAR,  JMVf MCAS,GCASi MENP, OENP ) 

IMPLICIT    INTEGER    (G) 

DIMENSION    MPC(16)  ,OPC(  16)  ,GCCSQ(8,8)  ,MVALPCU6)  , 
.    0VALPC(16)t MPAR(20),OPAR(20) ,MPHMV(75) , 0PHMV(75> T 
.    MAllSgi8i 8),GATTSQ(8,8)  ,MP0SMV(75) ,0P0SMVI 75) 

DO  500  1=1,8 

DO  500  J=l,8 

OCCSQ(I , J)=OCCSQ( I , J)*MTURN 
500  CCN1INUE 

NTURN=-1 

CALL    EXEClJ,'iV,ME^P,GENP, OCAS, OCA, 0CCSQ,MPC,GPC, 
.     CVALPCtNTURN) 

DO    2129    K-1,16 

IF(MPC(K)-EQ.Q)  MVALPC(K)=0 
2129  CONTINUE 

OCAS=0 

IFI0CA.GE..50)  0CAS  =  2 

IF(OCA.EQ*10)  0CAS=1 

IF(OCA.EQi-iO)  0CAS=-1 

MCAS=0 

IF(MCA.GE.50)  MCAS=2 

IF(MCA.Ey.lO)  MCAS=1 

IF(MCA.EQ--IO)  MCAS=«1 
.   NCHK=1 

ONPHT=0 

IF(MTURN.EQ.-l)  ONPHT=i 

NTUKN=-i 

CALL  MOVES(MPC,OPCtOCCSQfOVALPC'f  OATTSQt  OPOSMVfOPHMVt 
.  0NPH1, MEN P, OCAS, OCA, NTURN, NCHK , ONT) 

IF(NChK.EQ.i)  MCAS=2 

0NPHT=0 

IF(MTURN.EQ.-l)  0NPHT=1 

N1URN=-1 

CALL  MO VES(M PC, GPC, OCCSQ, OVAL  PC, CATTSQ, OPGSNV ,GPHMV , 
.  GNPH T, MEN P,Qt AS, OCA, NTURN, 0, ONT) 

IF(GNT.EQ.O)  GO  10  1725 

N1URN=-1 

MNPH1=0 

IF(MTURN.EQ.-l)  MNPHT=1 

CALL  CHECK! 0PC,MPC,0CCSQ,MVALPCfMATTSQ,MPOSMV,MPHMVf 
.  MNPHTt MENPtMCAS f MCA, NTURN fMNltOPOSMV, OPHMVtONPHTt 
.  OVALPC, OA T T SQ, ONT  ,QENP, OCAS, OCA) 

IFIMCAS.E-J.2)  GO  TO  1725 

ML  =  0 

IKA=MPC(  16)/ 10 

DC  1705  JKA=2,4 

IFiOATTSUi iKAf JKAl.NE.O)  ML=1 
1705  CONTINUE 

MR=0 

DO  1710  JKA=6,7 

IF(DATTSQ(IKAfJKAJ.NE.O)  MR=1 

1710  CONTINUE 
IF(ML.EQ.O)  GO  TO  1711 
MCAS=1 

IF(MCA.EQ.-IO)  MCAS=2 
IF(MR.NE.O)  MCAS=2 

GC  10  1725 

1711  MCAS=0 

IF(MCA. EG--10)  MCAS=-1 
IF(MR.NE.O)  MCAS=-1 
1725  CGN1INUE 
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NTURN=-1 

CPAkm=0 

IFlMfURN.EQ.-l)     0PAR(1J=1 
1800    CALL    PARG£N(OPOSMV,QNT»OATTSQi0PARt0VALPCfOCCSQi 
.    CCAiOPCt  MPC»IMTURN,OPHMV»ONPHT) 

IF(MTURN.NE.l)     GO    TO    lb25 

DC    1810    1=1,8 

L  =  9-I 

WRITE (6, 1815)     (0CCSQ(L, J I  ,J--=i,8) 
1815    FGRMAK8I8//) 
1810    CONTINUE 
1825    DO    1900    1=1,8 

DO    1900    J=l,8 

OCCSQl I i JJ=-OCCSQCI,JJ 
1900  CONTINUE 

NTURN=1 

MNPHT=0 

IF(MTURN.EQ.-l)  MNPHT=1 

CALL  M0VES(MPC,OPC,OCCSG»MVALPC,MATTSQtMP0SMV|MPHMVf 
.  MN?hT,OENP,MCAS ,MCA, NTURN , OtMNT) 

IF(MNT.EQ.O)  GO  TO  2125 

NTURN=1 

ONPHT=0 

IF(MTURN.cQ.-l)  ONPHT=l 

CALL  CHECK (M PC, OPC,OCCSC,OVALPC,OATTSQ,OPCSMV,OPHMV, 
.  CNPHT,GENP,OCAS  ,OCA,  NTURN, CNT , MPOSHV , MPHMV ,MNPHT , 
.  MVALPC,MATTSQtMNT,MENP,MCAStMCA) 

IF(OCAS  .EQ.2)  GO  TO  2125 

IKA=0PC(16)/10 

ML  =  0 

00  2105  JKA=2,4 

IFCMATTSQC IKA»JKA).NE.O)  ML=1 
2105  CONTINUE 

MR  =  0 

DC    2110    JKA=6, 7 

IFCMATTSCM  IKA,JKAJ .NE.OJ    MR  =  1 

2110  CONTINUE 
IF(ML.EQ.O)    GO    TO    2111 
GCAS=1 

IF(OCA.EQ.-IO)    0CAS=2 
IhlMK.NE.O)     0CAS=2 

GO    TO    2125 

2111  OCAS=0 
IF(GCA.EQ.-IO)    0CAS=-1 
IF(MR.NE.OJ    0CAS=-1 

2125    CONTINUE 

NTURN- 1 

MPARi 1 ) =0 

IF(MTURN.EQ.-l)  MPAR(1)=1 
2200  CALL  PARGEN(MPOSMV, MNT,MATTSQ,MPARtMVALPCfOCCSQf 

.  MCA f MP C . QPCt NTURN fMPHMVfMNPHT) 
3000  RETURN 

END 

SLBROUTINE  EXEC  I OMV , MENP, JENP , OCAS , GCA, OCCSC, MPC, OPC, 
•  JVALPC ,NTUKNi 

IMPLICIT  INTEGER  (OJ 

DIMENSION  MPCQ6) ,0PC(16) ,0CCSQ(8,8) , JVALPC(16) 

IF(OMV.EQ.O)  GO  TO  3000 

IF(O.MV.LT.IOO)  GO  TO  2000 

GFN=CMV/10000 

CPR=CMV-10G0Q*GPN 

NEWPUS=0PR/100 

OPRPOS=0PK-100*NEWP0S 
DETERMINE  IF  MOVE  WILL  AFFECT  CASTLE  POSSIBILITIES 

IFUJCA.GE.50)  GO  TO  2364 

IF(OCA.EQ.iO)  GO  TO  2362 

IF(GCA.EQi-lO)  GO  TO  2363 

IFtOPN.EQ.l6J  0CA=50 

IF(0PN.EU.13i  CCA=10 

IF(0PN.EQ.14)  0CA=-10 

GO  TO  2364 
2362  IFCOPN.E0.14)  0CA=50 
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GC  TO  2 

2363  IFIOPN. 

23o4  IFfOPN. 

SET  EN  PASSAN 

IF<  JVAL 

NK34=NE 

NKj4=IA 

IF<NK34 

OENP=NE 

800  IF<NEWP 

DETERMINE  PAW 

IF(NEWP 

GC  TO  1 

900  JVALPC( 

IMPLEMENT  MOV 

1000  I£LD=OP 
JCLD=OP 
INEW=NE 
JNEW=NE 
OCCSQ( I 
IF(CCCS 

1200  DO  1300 
IF(MPC< 

1300  CCNTINU 
GO  TO  1 

1400  IF(OPN. 
IF( JVAL 
1FI  JCLJ 
OCCSQ( I 
I25=MEN 

1450  MPC(I25 

1500  OCCSQt I 

CFCIGPN 

GG  TO  3 

IMPLEMENT  CAS 

200C  GCA=100 
OCAS=2 

2400  IF^UMV. 
itf=OPC< 
JR=OPC( 
KR=13 
Kl  =  l 
GC  TO  2 

2500    IP=OPC< 
JR=GPU 
KR=14 
Kl=-1 

2600  IK=0PC( 
JK=OPC< 

2700  OCCSQt I 
CCCSQi I 
JP=JR*K 
OCCS0( I 
JK=JR+K 
OCCSw( I 

2800  OPC(KR) 
OPC< 16) 

3000  RETURN 
END 

SUBROUT 

.  OPHMVf 

.  MNPHT, 

IMPLICI 

DIMENSI 

.  OATTSQ 

.  MPHMV ( 

.  MATTSg 

DC  50  I 

DO  50  J 

OCCSwl I 

50  CONTINU 

IF(MNT. 


364 

Eg. 

GT. 
T  F 

PC( 

WPO 
BS< 
.HE 
WPO 
OS- 
N  P 
OS. 
000 
OPN 
E  0 
RPO 
RPO 
WPO 
WPO 
OLD 
Q(I 
K= 
K). 

500 

GT. 

PC( 

.EG 

OLD 

P/.l 

)  =  0 

NEW 

)  =  N 

000 

TL£ 


13)  OCA=50 

8)  GO  TO  1000 

LAG  IF  APPLICABLE 

GPNJ.EQ.90J  GO  TO  1000 

S-OPRPOS 

NK34) 

.20)  GO  TO  800 

S+100*0PN 

GT.73)  GO  TO  900 

ROMOTIQN 

LT.21)  GC  TO  900 

1=90 

TriER  THAN  CASTLE 

S/10 

S-1Q*I0LD 

S/10 

S-10*INEW 

,JGLD)=0 

NEW, JNEW) .EQ.G)    GO    TO    1400 

1,16 

EQ.NEWPOS)     MPC(K)=0 


3)    GO    TO    1500 
OPN) .EU. 90)     GO    TO 
.JNEW)     GO    TO    1500 
,JNEW)=0 
00 


1500 


t JNEW) 

EWPOS 

MOVE 


JVALPCtOPN)*NTURN 


ED. 99)    GO    TO    2500 
13J/10 

13i-10*IR 


600 

14) /10 

14i-10*IR 


lo)/10 
16)-10*IK 

K,J<O  =  0 

R,JR)=0 

1 

R,JR)=9900*NTURN 

1 

K,JK)=50*NTURN 

=10*IK+JK 

=10#IR+JR 


INE    CHECK (M PC fCPCfOCCSQfOVALPCfOATTSC*OPOSMVi 

ONPHT,OENP,OCAS,OCA, NTURN ,GNT , MP GSMV , MPHMV , 

MVALPCMATTSO,  NNT  ,ME  NP  ,  MC  AS  ,  MCA) 

T    INTEGER    (0) 

ON  MPC(16)  tOPCC 16)  , 0CCSQ(8, 8) ,UVALPC<16) , 

(8,8) ,OPOSMV( 75) ,GPHMV<75) , MPCSMVt 75), 

7  5)  ,  J MP CI  16) , JOPC(  16)  ,J0CCSg(8,8)  ,JMVLPC( 16) , 

(8^8) ,MVALPC(16) 

=  1,8 

=  1,8 

,  J)=OCCSQ( I ,J)*NTURN 

E 

Eg.O)  GO  TO  3100 
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IFOG=0 

IF(ONPHT.NE.O)  IFOG=l 

DC  1000  N=1,MNT 
SAVE  POSITION 

M1=MCAS 

M2=GCAS 

M3=MENP 

M4=GENP 

M5=MCA 

M6=GCA 

DO  100  K=l,16 

J*PC(K)=MGCiK) 

JCPCU>=QPC(K) 

JMVLPC(K)=MVALPC(K) 
100  CONTINUE 

DC  200  1=1,8 

DO  200  J=1,S 

JOCCSQU,  J)=GCCSQ( I, J) 
200  CONTINUE 

MP=MPOSMV(N}/100 

MMV=100*MPQSMV(N)+MPC(MP) 

IF(MPUSMViN) .LT.1U0)  MMV=MPGSMV<NJ 

NTURN=-1 

IF(IFOG.EQ.O)     NTURN=1 
EXECUTE    MOVE 

CALL    EXEC( MMV,OENP,MENP»MCASfMCA,OCCSQfOPCiMPC 
.     NVALPC,NTURN) 

KPN  =  0 

DO    2129    K=l,16 

IF(OPC(K).E«.JOPC(K))    GO    TO    2129 

KfN  =  K 

GSV=GVALPC(Ki 

OVALPC(K)=0 
2129    CONTINUE 

NCHK-l 

NTURN=1      ■ 

ONPHT=0 

IFUFQG.NE.O)    0NPHT=1 

IF(NTURN.NE.l)     GO    TO    2348 

DO    2357    1=1,8 

DO    2357    J-1,8 

OCCSU(  I, J)=-OCCSQ< I, J) 
2357    CONTINUE 
2343    CONTINUE 

CALL    MOVES(OPC,MPC,0CCSQ,0VALPC,0ATTSQ,0POSMV, 
.     CPHMV, ONPHT ,HENP, OCAS, OCA, NTURN ,NCHK,ONT ) 

IF(NTURN.NE.l)     GO    TO    2361 

DO    2368    1=1,8 

DO    23  6  8    J =1,8 

OCCStHI  ,  JJ=-GCCSQ(I,JJ 
2363    CCNTINUE 
2361    CCNTINUE 

MCAS=M1 

0CAS=M2 

MENf-=M3 

0ENP=M4 

MCA=M5 

0CA=M6 

DO  300  K=l,16 

OPC<K)=JUPClK) 

MVALPC(K) sJMVLPC(K) 
300  CCNTINUE 

IFUPN.NE.O)  OVALPC(KPN)=OSV 

DO  350  K=i, 16 

IF(KPN.E'O.O)  GO    TO  310 

IF(MPC(K) . tU.OPC(KPN) )  KPN=0 
310  MPC<K)=JMPC(K) 
350  CCNTINUE 

DO  400  1=1,8 

DC  400  J=l,8 

OCCSQd  , JJ=JOCCSQ(I  ,J) 
400    CCNTINUE 
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IF(KPN.EQ.O)  GO  TO  500 

Kf-M=OPC(KPNj 

I=KPM/10 

J=KPM-10*I 

MATTSQC I , J)=MATT5Q( I t Ji-1001 
DETERMINE  IF  MOVE  RESULTS  IN  CHECK 

500  IF(NCHK.Nc.l)  GO  TO  950 
IF  CHECK,  CHANGE  ATTSQ,POSMV 

IF(MPOSMVlN).LT.lOO)    GO    TO    990 

MPC=MPOSiMV<N)-MP*iOO 

M1=MP0/10 

MJ=NPG-MI*10 

MATTSQ(MI,MJ)=MATTSQ(MI,MJ)-100*MVALPC(MP)-1 

IF(MVALPCIMP).EQ.32)    GO    TO    600 

IF(MVALPC( MP) .EQ.50)     GO    TO    600 

IF(MVALPC(MP).EQ.90I    GO    TO    600 

GO  TO  990 
600  OC  610  L-1»MNPHT 

M14=MPriMVIL)/100 

IFIM14.E0.0)  GO  TO  610 

IF(MVALPC(M14) .EQ.32)  GO  TO  603 

IFlMVAi_PCIM14J.EQ.50)    GO    TO    603 

IF(MVALFC(M14) .EQ.90)     GO    TO    603 

GO    TO    610 

603  NVO=MPHMV(L)-100*M14 
IF(NVQ.EQ.MPO)  GO  TO  604 
GO  TO  610 

604  MPM=100*M14+MPC(MP) 
OC  607  K=1»MNPHT 
IF(MPHMVIK).EQ.MPM)  GO  TO  606 
GO  TO  607 

606  MPHMV(L)=0 

GC    TO    990 
6C7    CONTINUE 

GC    TC    990 
610    CONTINUE 

GC    TO    9  90 
950    IF1WALPC4MP) .Nc.10)    GO   TO    1000 

I 1=MPC(MPJ/10 

J1=MPC( MPJ-10*I1 

MPG=MPOSMV(N)-100*MP 

MI=MPG/10 

MJ=MP0-10*MI 

IF(  J.UEQ.MJ)    GO    TO    1000 

00    960    L=lfMNPHT 

M14*=MPHMV4L)/100 

IFIM14.EQ*0)    GO    TO    960 

IF(MVALPC(M14) .EQ.32J     GO    TO    952 

IF(MVALPCIM14).£Q.90)     GO    TO    9^2 

GO    TO    960 
952    MPM-100*M14+MPC(MP) 

IF(MPH-MViLi.NE.MPM)    GO    TO    960 

I4=-l 

IF1I1.GT.MI)     14=1 

J4=-l 

IF4J1.GT.MJ)     J4=l 

13=11+14 

J3=J1+J4 
954    IF1J3.LT. 1)    GO    TO    960 

IFU3.GT.3)    GO    TO    960 

IFU3.LT. 1)    GO    TO    960 

1FU3.GT.8)    GO    TO    960 

N3=10*I3+J3 

IFIMPC1M14) .EQ.N3)     GO    TO    965 

IF(GCCSW< I3,J3).E«.-90)    GO    TO    956 

IF(GCCSCU3,  J3J.EQ.-32)    GO    TO    956 

IF(CCCSCiI3, J3) .EQ.O)     GO    TO    95o 

GO    TO    960 
956    13=13+14 

J3=J3+J4 

GC    TO    954 
960    CONTINUE 
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965 


990 
1000 


SAVE 


2100 


2200 
EXECU 


2369 
23  71 


3332 

33dl 


2300 


2400 
DETcR 
IF    IN 


3000 


GC  TC  1 
MNPHT=M 
MPHMVtM 
MAI  TSQ( 

GG  TO  1 
MPOSHV( 
CONTINU 

Do  3CGG 

POSITION 

IFIMPHM 

^1  =  ^,CAS 
M2=CCAS 
M3=MENP 
M4=CENP 
DG  2100 
JfPC(K) 
J.CPC(K) 
JNVLFC( 
CCNTINU 
DC  2200 
DG  2200 
JGGGSil 
CGNTlNu 

TE  PHANT 
KP  =  MPH.M 
NtwPGS= 
I9=MPC( 
J9=MPC< 
IN  =  NE*'P 
JN=NEWP 
CCCSW{ I 
0CCSQ(  I 
NChK=l 
ONPhT=0 
I P( IFOG 
IFfNTUR 
DG  2369 
DC  23t>9 
OCCSQCI 
CCNTINU 
CCNTIKJ 
CALL  HG 

.  CPHN.V, 
IF(NTUR 
DO  3382 
DC  3382 
GCCSGU 
CONTINU 
CCNTINU 
MCAS=M1 
CCAS=M2 
KENP=tf3 
CENP=M4 
DC  2300 
MPC(K/= 
OPC(K)= 
KVALPCI 
CCNTINU 
DG  2400 
DC  2400 
GCC£Q( I 
CCNTINU 

.MIKE  ir 
CHECK, 
IF(NCHK 
GKSQ=GP 
IFCNEWP 
MATTSJl 
MFHMV( N 
CONTINU 
DC  3020 
MF=MPHM 


000 

NPHT+1 

UPHTI=100*M14*MPQ 

M 1 1 M J ) =MA  T T  S  Q ( M I , M J  J  +  100*  N V AL PC ( M 14 )  r 1 

000 

N)-0 

N=l,  mnpht 

V(N).EQ.O)  GO  TO  3000 


K=li 16 
MPC(Ki 

GPC(K) 
)=MVALPC(K) 

1  =  1,5 
J=l,3 
t-J)=oCCSu(  It  J 


M  MOVE 

IN J/100 

PHMV(NJ-100*MP 

Pi/10 

PJ-10*i9 

S/10 

S-lO*IN 

,J9}=0 

,JN)=MVALPC(MP1 


.NE.Oi  0NPHT=1 
N.NE.l]  GO  TG  23  71 

1  =  1,3 
J  =  l,8 
, J1=-CCCSQ( I, J) 


VES( JPC,rtPC,OCCSQ,OVALPC,CATTSQ,OPCSNV, 
Of -,P  HT  ,  MEN ?  ,  GCA  5  ,  CC  A  ,  NTUR N  t  NCHK  ,  ONT  i 
N.NE.l)    GO    TC    3331 

1  =  1,8 

J=l,3 
,J)=-0CCSQ(I,J1 


IN  - 
Jl'P 

KJ  = 

E 

J= 
,  J) 
E 

yov 

MOD 

»i*c_ 
C(  1 
cSj 
IN, 
)=0 
E 

N  = 
V(N 


1,  16 
C(KJ 

C(K) 
JMVLPC(K) 

It  8 
1,8 
=JCCCSC( I, J) 


IN    CHECK 

PHMV 

3000 


t    RESULTS 

IFY     AFTSw, 

.  1)     GJ    TG 

6) 

EQ.GKSw)     GO    TO    3000 

J.\)=MATTSJl  IN,  JN)-100*tXVALPC(MP)-l 


1,MNPHT 
)/100 
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IF(MP.EQ.O)    GO    TO    3020 

IF(MVaLFC( MP) .NE.10)    GO    TO    3020 

Ii=MPC(MPJ/10 

J1=MPC(  MPJ-10*U 

MFC=MPHMV (N)-100*MP 

MI=MPG/10 

MJ=MPO-10#MI 

IFiJl .EC.MJ)    GO    TO    3020 

DC    3005    L=1,MNPHT 

M14=MPHMV1L)/100 

IF(M14.EQ.O)  GO  TO  3005 

IF(MVALPC*M14).EQ.32)  GO  TO  3002 

IF1MVALPCCM14) .EQ.90)  GO  TO  3002 

GO  TO  3005 

3002  MPM=100*M14+MPC(MP) 
IF(MPHMV(L) .NE.MPM)  GO  TO  3005 
14=-1 

IF(Il.GT.MI)  14=1 
J4=-l 

IF(Jl.GT.MJ)  J4=l 
13=11+14 
J3=J1+J4 

3003  IFU3.LT. 1)  GO  TO  3005 
1F(I3.GT.3)  GO  TO  3005 
IPU3.LT.1)  GO  TO  3005 
IF(J3.GT.o)  GO  TO  3005 
N3=10*I3+J3 

IF(MPC( Ml4).EG.N3)  GO  TO  3010 
IFtCCCSQl 13, J3) ,EU. -90)  GO  TO  30C4 
IF(OCCSQ{ 13, J3) .E3.-32)  GO  TO  3004 
1  FiCCCSU  13,  J3)  .EQ.O)  GO  TO  3004 
GO  TO  3G05 

3004  13=13*14 
J3=J3*J4 
GC  TO  3003 

3005  CONTINUE 
GC  TO  3C20 

30  10  MNPHT  =  MNPHTU 

MPHMV(MNPHT)=100*M14*MPO 

MATTSQC  MItMJ)=MATTSQ(MI,MJ)*100*MVALPC(M14) +1 
3020  CONTINUE 

M=0 

DC  3050  N=1,MNT 

IF(«POSMV(Ni .NE.OJ  GO  TO  3025 

GO  TO  3050 
3025  M  =  M+1 

OPHMV(MJ=MPGSMV(N) 
3050  CONTINUE 

KNT  =  H 

DC  3100  N=1,MNT 

MPGSMV(Ni=OPHMV(N) 
3100  CONTINUE 

DO  3200  1=1,8 

DO  3200  J=l,8 

OCCSQU  ,  J1=0CCSQ(  I,  J)*NTURN 
3200  CCN1 INUE 

RETURN 

END 

SLBROUTINE  P ARGE N( JPOSMV, JN T, J ATTSG, J PAR , JV ALPC, 
.  CCCSQ,  JCA,  JPC  KPCtNTURNf  JPHMV,  JNPHT) 

IMPLICIT  IMEGER(C) 

DIMENSION    JPOSMV ( 75),JATTSQ(8,8) ,  JPAR<20) , JVALPC( 16) 
.     0CCSQ(8,8), JPC( 16) ,KPC<16) ,KATTSQ(8,8) ,KPHM\M75) , 
.     JVC  8)  t  KV.(8)f  JPHMV  (75)  ,NWT(20)  ,  KVALPCU6)  ,KPCSMV(75) 

NFR=0 

IF(MURN.EQ.-l)     NFR=1 

IF( JPAR(  1) .NE.O)  NTURN=-NTURN 

NF0G=1 

IF(JPAR(11.NE.0)  NFGG=-1 

DO  1U  K=i,20 

JPAR(KJ=0 
10  CONTINUE 
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PAR(l) 
PAR(2) 


75 

PAR(3i 


IF(JNT.EQ.O)    GO    TO    450 

JPAM  1)=JNT 

DC    75    K=l, 15 

JPAR<2)=J1?AR<2)*-JVALPC(K) 

CONTINUE 


85 
90 
100 
PAR(4) 


DO    100    K=l,8 

IF< JPC( K>. EQ.O)     GO    TO    100 

IPC JVALPC(K) .EQ.90J    GO    TO 

IF(NTUkN.EQ.-l)     GO    TO    85 

IKP=(JPC(K)/10)-2 

GC    TO    90 

IHP=7-( JPCU)/10) 

JPAR<3)=JPAR(3)+IMP**2 

CONTINUE 


104 

105 

106 


107 
110 


lil 
112 
115 

113 
114 
116 


120 
PAR<5) 


100 


KCEN=44 

IF(NTUk 

KCENT=K 

DO    110 

IF(JVAL 

IF( JPC( 

IF(JPC( 

GC    TO    1 

JPARC4) 

KTR=KCE 

DO    105 

IF( JVAL 

IF(JPC( 

CCNTINU 

GO    TO    1 

JPAR(4) 

KTR=KCE 

DC    107 

IF( JVAL 

IF( JPC( 

CCNTINU 

CCNTINU 

DO    120 

IF(KPC( 

IF(KPC( 

GO    TO    1 

KTR=KCE 

K35=0 

DO    115 

IF( JPCi 

CCNTINU 

IF(K35. 

KTR=KCE 

K35=l 

GC    TO    1 

KTR=KCE 

K35  =  0 

DO    lib 

IF( JPC( 

CONTINU 

IF(K35. 

KTR=KCE 

K35=l 

GC    TO    1 

CCNTINU 


N.EQ.-i)     KCEN=54 
CEN  +  1 

i/  —  i       q 

PC(K) .EQ.90)    GO    TO    110 

K).EQ.kCEN)    GO    TO    104 

K) .EQ.KCENTi     GO    TO    106 

10 

=JPAP(4)+10 

NT-10*NTURN 

L  =  l  ,6 

PC(L). EQ.90)    GO    TO    105 

LJ.EQ.KTRJ    JPAR(4)=JPAR(4)+10 

E 

10 

^JPAR(4i+10 

N-10-NTURN 

L  =  l,8 

PC(U .EQ.90)    GO    TO    107 

L)*EQ.KTR)     JPAR(4)=JPAR(4)+10 

E 

E 

K=l,8 

K)  .EO.KCEN)     GO    TO    HI 

Kj.EQ.KCENT)    GO    TO    113 

20 

K-11*NTURN 

L=l,8 

U.tQ.KTR)     JPAR(4)=JPAR<4)+10 

NEiO)    GO    TO    120 
N-9*NTURN 

12 
NT-il*NTURN 

L  =  l,8 

U-EQ.KTR)     JPAR(4)=JPAR(4)+10 

E 

NE.O)    GO    TO    120 
NT-9*NTURN 


14 

E 


IK  =  KPC(  161/10 

JK=KPC< 16)-10*IK 

I JK=JPC( 16J/10 

JJK=JPC(16)-10*IJK 

IFUNT.EQ.l)     JPAR(5)=JPAR(5)-1 

M14=0 

DO    130    K=ltJNT 

NVD=JPOSMV(k)/100 
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130 
135 
PAR (6) 


IF (NVD. NE. 16)  Ml  4=1 

IF(NV0.Nt.l6)  GO  TO  135 

CONTINUE 

IFCM14.EQ.0)  JPAR(5)=JPAR(5)-1 


140 
PAR(7) 


150 
PAR(8) 
155 


I  =  IJK.+  NTURN 
IFd.GT.8)  GO  TO 
IFd.LT.il  GO  TO 
DO  140  K=l  ,3 
J=JJK+K-2 
IF(J.LT.l)  GO  TO 
IF(J.GT.8J  GO  TO 
IFtOCCSQU,  JJ.GT 
CGNT1NUE 


140 
WO 


140 
140 
0)  JPAR(6)=JPAR<6)+10 


160 
170 


180 
190 
PAR(9) 
195 


201 


202 

204 
205 


206 

208 
210 


IFUCA.Evi.100) 

IF(JCA.EG.IOO) 

DO  150  N=lfJNT 

IF( JPOSMVtN) .EQ.98) 

IF(  JPOSMV.(N) 

CONTINUE 


JPAR(7)=200 
GO  TO  155 


JPAR(7)=100 
JPAR( 7)=100 


K=l,4 


DC  170 

L=K+8 

IF( JPC(L).EQ.O) 

IF(NTURN.EQ.-1) 

IF(JPC(L)-GT.18) 

GC  TO  170" 

IFUPCi  D.LT.61) 

CONTINUE 

IFUPCt  15)  .EQ.O)  GO  TO  195 

IF(NTURN.EQ.-l)  GO  TO  180 

IF( JPC( 15) .GT.18)  JPAR(8)=JPAR(8J+10 

GC  TO  190 

IF(JPC( 15J.LT. 81 J  JPAR(8)=JPAR(8)+10 

CONTINUE 


GO  TO  170 
GO  TO  160 
JPAR(6)  =  JPAR(8)dO 

JPAK(8)=JPAR(8)+10 


DO  210  J=l 

IF< JAT1 SU( 

NVD=10*IK* 

JAT=JATTSQ 

JAK-JATTSfl 

1F( JAK.NE. 

IF( JAT.EU. 

IFUaT.EG. 

GC  TO  2  10 

JPAR(9)=JP 

IFiGCCSCl  I 

DO  204  N=l 

M14=JP0SmV 

IF(M14.EQ. 

IF< JVALPCl 

IFUVALPU 

GO  TO  2  04 

LP2=JP0bMV 

IFILP2.EQ. 

CONTINUE 

DO  208  K=l 

M14=JPHNVi 

IF( JVALPCi 

IF< JVALPCI 

GO  TO  206 

LP2  =  JPHf'V( 

IF(LP2.  EU. 

CONTINUE 

CONTINUE 

1=IK-NTURN 

IF(I.GT.8J 

IFd.LT.lJ 

DO  219  K=l 

NAD=10 

IF(K.Evl.21 


t8 

IK, J) .EQ.O)  GO  TO  210 

J 

I  IK, JJ/100 

( IK, J)-100*JAT 

1)  GO  TO  201 

50)  JPAR(9)=JPAR<9)*10 

90)  JPAR(9)=JPAR(9)+lO 

AR(9)+10 

K,JJ.GT.OJ  GO  TO  205 

,JNT 

(N)/100 

0)  GO  TO  204 

M14) .EQ.50)  GO  TO  202 

M14J.EQ.90J  GO  TO  202 

(N)-100*M14 

NVD)  JPAR(9)=JPAR(9)+10 


,JNPHT 

N)/100 
M14).EQ 
HI 4)  .EQ. 


50) 
90) 


GO 
GO 


TO 
TO 


206 
206 


N)-100*M14 

NVD)  JPAR(9)  =JPAk(9)d0 


GO  TO 
GO  TO 
,3 

NAD=5 


219 
219 


80 


211 


212 

214 
215 


216 

218 

219 

PAR(1 


220 
PAR(1 


222 
224 


225 
228 

227 

229 


J=JK+K- 
IF( J.LT 
IFU.GT 

NVD=10* 

IF(JATT 

JAT=JAT 

JAK=JAT 

IFUAK. 

IF< JAT. 

IF< JAT. 

1F( JAT. 

GC    TO    2 

JPAR(  91 

IPiGCCS 

DO    214 

Ml 4= JPG 

IFCM14. 

IF( JVAL 

IF(JVAL 

IF( JVAL 

GG    TO    2 

LP2-JPG 

IFILP2. 

CONTINU 

DO    218 

M14=JPH 

IFUVAL 

IF( JVAL 

IF( JVAL 

GG    TO    2 

LP2=JPH 

IF(LP2. 

CONTINU 

CCNTINU 

0) 
DC  220 
IF(KPC( 
IK=KPC( 
JK=KPC{ 
IF (J ATT 
CCNTINU 

1) 
DG    224 
IF(JPC( 
IFUPC( 
I  =  JPCU 
J=JPC(K 
DO    222 
I=I+NTU 
IFU.GT 
IFU.IT 
IF(OCCS 
IF(OCCS 
CCNTINU 
CONTINU 
IF(NFR. 
DO    225 
DO    225 
KATTSUi 
CONTINU 
KNPHT=J 
DO    228 
KPHMV(N 
CCNTINU 
KM  =  JNT 
DC    227 
KPCSMV( 
CONTINU 
DO    229 
KVALPC( 
CCNTINU 
GC    TO    4 


TO 
TO 


2 

.1)    GO 

.8)    GO 
H-J 

smi,jj  .e 

TSQU  ,  J)/ 

TSQd  ,J)- 

NE.l)    GO 

EC. 32)     JP 

EQ-90)     JP 

EQ.50)     JP 

19 

=JPAR(9)* 

C(  I  »J  )  .GT 

N=l , JNT 

SMV(N)/10 

EQ.O)    GO 

PC(M14).E 

PCUU4) .E 

PC(M14) .E 

14 

SMV(N)-10 

EQ.NVD)     J 

E 

N=l, JNPhT 

fcV(N)/100 

PCUU4)  .E 

PCI  Ml  4)  .E 

PC(M14) .E 

18 

MV(Ni-100 

EQ-NVD)     J 

E 

E 


219 

219 


GO    TO    219 


Q.O) 

100 

100*JAT 

TO    211 

AR(9)  =  JPAf< 

AR(9)=JPA!< 

AR(9)=JPAR( 


( 9)+NAD 

(9)+NAD 

9)*NAD 


NAD 

.0)    GO    TO    215 

0 

TO    214 

Q.32)    GO    TO    212 

Q.90)     GG    TO    212 

Q.501     GO    TO    212 

0*M14 
PAR<9)=JPAR(9)+NAD 


g.32)  GO  TO  216 
Q.90)  GO  TO  216 
Q.5G)  GO  TO  216 

*M14 
PAR(9)=JPAR(9)*NAD 


K=lf  15 

Ki.EQ.O)     GO    TO    220 

K)/10 

K)rlO*IK 

SQCIKf JK) .GT.OJ     JPAR(10)=JPAR(10)+10 

E 


K=l 

K)  . 

K). 

)/l 

)-l 

L  =  l 

PIM 

.7). 

.2) 

Q(  I 

Qi  I 

E 

E 

NEi 

1  =  1 

J=l 

I, J 

E 

NPH 

N-l 

)  =  J 

E 


,8 

EQ.O)    GO    TC    224 

EQ.90)     GO    TO    224 

0 

0*1 

»5 


GO    TO    224 

GO    TO    224 

,  J)  .EQ .-10) 

«j)  .EQ  .-10) 


JPAR(  11)=JPAR(  Hi  -10 
GO    TO    224 


1)    GO    TO    230 

)=JATTSQ(I »J) 

T 

tJNPHT 

PHfW(N) 


N=l f JNT 

N)* JPGSrtV(N) 

E 

K  =  l  ,16 

K)=JVALPC(K) 

E 

00 


81 


PARC12) 

230  JhCRST=0 

DO  300  K=l,15 

If (KPC(K).EQ.O)  GO  TO  300 

IM=KPC(K)/10 

JK=KPC(K)-10*IM 

KAT  =  KATTS*J(  IM , JM ) - ( K ATTSQ ( I M, JM  )  /  10) *10 

If ( JATTSQtIMtJM) .NE.O)  GO  TO  235 

JFAR(  12)=JPAR(12)+10*KAr 

GO  TO  30C 
235  JAT=JATTSQ( IM, JM)-( JATTSQt IM,JM)/10)*10 

LCST=IAbS(OCCSQ( IM, JM) ) 

If(KAT.NE.O)  GO  TO  240 

If (LuST.GJ.JKCRST)  JWORST=LOST 

GO  TO  300 
240  If(JAT.NEil)  GO  TO  245 

IPC JATTSU IM, JM) .GT.900000)  GO  TO  244 

LGA IN- JATT SQ  C IH i JM i / 1 00 

If (LOST.GT.LGAIN)  GO  TO  242 

JPAR(12J=JPAR( 12)+LGAIN~LGST 

GO  TO  300 
242  LCST=LOST-LGAIN 

IPC  LOST. GT. J  WORST)  JWORST  =  LOST 

GL  TO  300 

244  JPARt 12)=JPAR( 12)+10 
GO  TO  300 

245  If (KAT.GE.JAT)  GO  TO  270 
DC  246  N=l,8 

JV(N)=0 

246  CONTINUE 
L  =  0 

DO    250    N=1TJNT 

KMV=JP<JSMVtNJ-<  JPOSMVIN)/100)*IOO 

If (KhV.Nc.KPC(K) )     GO    TO    250 

KC=( JPCSMV(N)-KMV)/100 

I5=JPC(KC) /10 

J5=JPC(KCi-iO*I5 

L=L  +  1 

JV.(L1  =  IA6S(3CCSQ(  I5,J5J  ) 
250  CONTINUE 

L  =  0 

KT5=JAT-1 

DC  255  M=1,KT5 

L  =  L+1 

KL=15000 

DO  253  N=L,JAT 

IF( JV(N) .IE.KL)  KL=JV(N) 

If (JV(NJ.LE.KL)  KN=N 
253  CONTINUE 

KSA=JV( L) 

JV(L)=KL 

JV(KN)=KSA 
255  CONTINUE 

If (KATTSQ(IM,JM) .GT.900000J  GO  TO  265 

259  LC ST= I  A b$ ( CCC SQ I  I M,JM) ) +KATTSQ ( I M , JM) / 100 
LGA1N=0 

DO  260  L=1,KAT 
LGAIN=LGAIN+JV(L) 

260  CONTINUE 

If CLGST.GT.LGAIN)  GO    TO  262 

JPAP(12)=JPAR( 12 )+LGA IN-LOST. 

GO  TO  300 
262  LOST^LOST-LGAIN 

If (LOST.GT.JWORST)  JWORST=LOST 

GO  TO  300 
265  KAT=KAT-1 

GO  TO  259 

270  DO  271  N=l,8 
KV(N)=0 

271  CCNT1NUE 
L  =  0 

DC  275  N=1,KNPHT 
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275 


278 

280 
281 

285 

288 

290 

300 

4C0 


405 
PAR( 13 

4C3 


414 


409 
413 


KMV=KPHMV 

IFtKMV.NE 

KC=(KPHMV 

I5=KPC(KC 

J5=KPC( KC 

L  =  L  +  1 

KV(L)=IA8 

CONTINUE 

L  =  0 

K75=KAT-1 

DC  280  M= 

L  =  L  +  1 

KL=15000 

DC  278  N= 

IF(KV(N) . 

IF(KV(NJ . 

CCNTINUE 

KSA=KV(L) 

KV(L)=KL 

KV(KM=KS 

CONTINUE 

IF( JATTSQ 

LGAIN=JAT 

LCST=I A8S 

JAT=JAT-1 

DO  285  L  = 

LCST=LOST 

CONTINUE 

IFtLCST.G 

JPAR(12i= 

GO  TO  300 

L0ST=L0S1 

IP(LOST.G 

GO  TO  300 

JAT=JAT-1 

GC  TO  281 

CONTINUE 

IF(JWGRST 

JPAR(12)= 

JPAR( 12)= 

NTWT=NFR* 

IFCNTWT.N 

READ(5,40 

FORMAT ( 17 

) 

IF(NFR.EQ 

DC  430  K  = 

I=KPC(K)/ 

I  1=  I-jMTUR 

IF( II. GT. 

IFU1.LT. 

J=KPC(K)- 

J1=J-1 

IF( Ji.LT. 

NVD=10*I1 

DO  410  L= 

M14=JPGSM 

IFCM14.EQ 

IF(M14.GT 

IF(JVALPC 

N2=JPGSMV 

IF1N2.EC. 

GO  TO  410 

IF( JATTSQ 

12=11 

I2=I2-NTU 

IFU2.GT. 

IFCI2.LT. 

IF(GCCSQ( 

1F<0CCSG( 

IF(GCCSQ( 

IF(GCCSQ( 


<N)-(KP 

*KPC(K) 

(N)-KMV 

J/10 

1-10*15 


HMV(N)/100)*100 
)  GO  TO  275 
1/100 


S(GCCSQ(I5,J5) J 


1,KT5 


UKAT 

LE.KL) 

LE.KL) 


KL=KV(N) 

KN=N 


(IM,JM) 
TSQCIMt 

(OCCSQl 

1,JAT 
+KV(L) 

T.LGA1N 
JPAR112 


.GT. 900000)  GO  TO  290 

JMJ/100 

IM,JM)) 


)  GO  TO  288 
)+LGAIN-LUST 


-LGAIN 

T.JWORST)  JWORST=LOST 


.EQ.O) 
-100*JW 
-JPARi 1 
NFGG 
E.l)  GO 
5)  (NUT 
14) 

il)  GO 

8,16 

10 

N 

6) 

3) 


GO  TO  400 

QRST 

2)  /10 

TO  408 
(K) fK-1,17) 


TO  44  2 


GO 
GC 


10*1 


430 
430 


1)  GO  TO  416 

+  J1 

1,JNT 

ViU/iO 

•  0)  GO 

.8)  GO 

(M14) .N 

<L)-100 

NVD)  GO 


0 

TO  410 
TO  410 

E.10)  GO  TO  410 
*M14 
TO  409 


(II, Jl ) .NE.O)  GO  TO  412 


RN 
8) 
1  ) 
12 
11 
12 
12 


GO 

GO 

Ji) 

Jl  ) 

Jl) 

Jl) 


0  417 
0  417 
tQ.O) 
EQ.10) 
EQ. 90) 
EQ.50) 


GO  TO  413 
GO  TO  413 
GO  TO  412 
GO  TO  412 
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417    IFlKATTSUUlt  JD.NE.O)     GO    TO   416 

JPAR(13)^=JPAR(  13)4-10 

GC  TO  416 
412  N43  =  0 

DC  415  N=1,KNPHT 

LP2=KPHMV(N)/100 

IF(KVALPC(LP2J.NE.10)  GO  TO  415 

N21  =  KPHMVX.N)-100*LP2 

IF(N3i-NE-NVDJ  GO  TO  415 

N43=l 

415  CONTINUE 

IFCN43.EQ.0)  J PARC 13)=JPAR( 13) +10 
410  CONTINUE 

416  IF(J.LT.Jl)  GO  TO  430 
J1=J+1 

IFU.GT.8).  GO  TO  430 
GC  TO  414 
430  CCNTINUE 
PAR( 14) 

DO  475  J=l,8 
I=KPC( 16)/10 
11  =  1 

452  I=I-NTURN 

IFi I.GT.8)  GO  TO  475 

IF(I.LT.l)  GO  TO  475 

M14=10*H-J 

DC  45  5  N=1,JNT 

IF(JPOSMV(N).LT.iOO)  GO  TO  455 

NVD=JPOSMVIN)/100 

LF2=JP0SMV(N)-100*NVD 

IF(LP2.NE»M14)  GO  TO  455 

IF(JVALPC(NVD).£Q.90)  GO  TO  453 

IFI JVALPC(NVD) .EQ.50)    GO    TO    453 

GO    TO    4?5 

453  IF(KATTSQI) , J) .NE .0)  GO  TO  455 
J3=JPC(NVJ)-( JPC(NVQ)/10)*1Q 
IF( J3. EG. J)  GO  TO  455 

JPARt 14)=JPAR(  14)+10 

JAT  =  JATTSQ(Ilf Ji-( JATTSQt  1 1 , J )/ 100) *100 

JAT=JAT+1 

KAT=KATTSQ( I 1 , J ) - ( KATTSGC II , J ) / 100)*100 

IF(JAT.GT.KAT)     J  PAR* 14)=JPAR< 14) +50 
455    CCNTINUE 

IF(QCCS£(I , J) .EQ.O)    GO    TO    452 

I5=IA3S( I-Il ) 

IF(15.inc„1)    GO    TO    475 

J5  =  KPC( 16)-iO*I  1 

DC    4oO    M=l f3 

Jl=J5+M-2 

IF(Jl.LT.l)    Jl  =  JH-3 

IF(Jl.GT.B)    Jl=Jl-3 

IF(J.EQ.Jl)    GO    TO    452 
460    CCNT  INUE 
475    CCNTINUE 
PARU5) 

DC    525    K=l,3 

I=KPC( 16)/10 

J=KPC( 16)-10*I 

I1=I-NTURN 

ji=j+k-2 

IF(Jl.LT.l)  Jl=Jl+3 
1F(J1.GT.8)  Jl=Jl-3 
J5=-l 

I3=il-NTURN 
J3  =  J1 
524    IFU3.GT.8)    GO    TO    52o 
IF(I3..LT.l)    GO    TO    52b 
J3=J3+J5 

IFU3.LT.1)    GO    TO    526 
IFU3.GT.8)    GO    TO    526 
LP2=10*I3+J3 
DC    535    N=1,JNT 


8^4 


M14=JPCSMV(N)/100 

NVD=JPOSMV(N)-100*M14 

IF(NVD.NE*LP2J    GU    TU    535 

IFlKATTSQU3,J3)  .NE.OJ    GO    TO    535 

IFl JVALPC1M14) .EU.vO)  GO  TO  529 

IF(JVALPC.(M14).EQ.32)  GO  TU  529 

GO    TO    535 
529    M18=0 

DC    531    M=1»JNT 

M15-JPOSMV(M)/100 

M16=JPOSMV(M)-100*M15 

IF(M15.NEiMi4)    GO    TO    531 

M17=10*IH-J1 

IF(M16.EQ;M17J    M18  =  l 
531    CONTINUE 

IF(M13.NE.O)    GO    TO    535 

534  JPAR( 15)=JPAR(15)+10 
JAT=JaTTSQ(I1,J1)-( JATTSQ( 1 1 , Jl J /10U J *100 
JAT=JAT+1 

KAT  =  KATTSQU 1 ,  Jl  ) -  (  KATTSQU  1 ,  J  1 )  /  100)  *i 00 
1F( JAT.GT.KAT)     J  PA R{  15) = JP ARi 15 ) +50 

535  CONTINUE 
I3=I3-NTURN 
GO    70    5-24 

526    IFU5.EQ.1)    GO    TO    525 

J5=i 

I3=I1-NTURN 

J3=J1 

GO    TO    524 
525    CONTINUE 
PARU6) 

DO    575    J=l,8 
'        I'==JPC<16)/10 

11  =  1 

552  I=I+NTURM 
IFd.GT.8)  UO  TO  5  75 
1FU.LT.1)  GO  TO  575 
M14=10*I+J 

DC    555    N=1,KNT 

IF(KPOSMVIN).LT.IOO)     GO    TO    555 
NVD=KPOSNV(N)/100 
L  F2=K  PC  SMV  i  N ) - 1 0  0*N VD 
IF(LP2.NE.M14)    GO    TO    555 
IF(KVALPClNVD) .EQ.90)     GO    TO    553 
IF(KVAl_PC<  NVu)  .EQ. 50)     GO    TO    553 
GO    TO    555 

553  IF(JATTSQ(I,J)..ME.O)    GO   TO    555 
J 3= K PCI NVtf)-(KPC(NVD)/10)*10 
IF( J3.EQ.J)    GO    TO    555 

JPAR( 16)=JPAR( 16)-10 

JAT=JATTSQ( Ii, J)-( JATTSQ( 1 1 , J ) / 100) *100 

KAT=KATTSQ( I1,J)-(KATTSG(I1 , J)/ 1001*100 

KAT=KAT+1 

IF(KAT.GT*JAT)  JPAR(16)=JPAR( 16) -50 
555  CONTINUE 

IF10CC5U 1»J) .EQ.OJ  GO  TO  552 

I5=IABS(I-I1  ) 

IFU5.NE.1 )  GO  TO  575 

J5=JPCl  161-10*11 

DC  5o0  M=lf3 

Jl=J5*M-2 

IFU1.LT.1)  Jl  =  JH-3 

IFUl.GT.d)  Jl  =  Jl-3 

IF(J.EQ.Jl)  GO  TO  552 
560  CONTINUE 
575  CCNTINUE 
PAR(  17) 

DO  625  K=l,3 

I=JPC( 16)/10 

J  =  JPC(  16)-10*I 

1 1=1  + NT  URN 

Jl=J+K-2 
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624 


629 


631 
634 

635 
626 


625 

PAR  (2 

442 

444 
450 


50 


65 
70 


75 


IFU1.L 

IF( Jl.G 

J5=-l 

I3  =  IH-N 

J3  =  J1 

IF(I3.G 

IFi  13. L 

J3=J3+J 

iF(J3.L 

IF( J3.b 

LP2=10* 

DO    635 

M14=KP0 

NVD=KP0 

IFtNVD. 

IF( JATT 

IF(KVAL 

IF(KVAL 

GO    TO    6 

M18=G 

DO    631 

M15=KP0 

M16=KPu 

IF(M15. 

Ml  7=  10* 

IF(Ml6. 

CONTINU 

IF(M18. 

JPAM17 

JAT=JAT 

KAT=KAT 

KAT=KAT 

IF(KAT. 

CONTINU 

I3=I3+N 

GO    TO    6 

IF1J5.E 

J5  =  l 

13=I1+N 

J3  =  J1 

GC    TO    6 

CONTINU 

0) 
DO    444 
JPAFU20 
CCNTINU 
RETURM 
END 
SIBRCUT 

.  MPHMV, 
INPLICI 
DIMENSI 

.  MATTSQ 
DO  50  I 
DO  50  J 
MATTSQl 
OCCSQt I 
CONTINU 
N  =  0 
NN  =  0 
IF(NTUR 
KINGSU= 
GO  TO  7 
KINGSQ= 
IF(NCHK 
NCHK=0 
DC  2000 
IFCNTUR 
IF<MPC( 
NPOS=MP 
GO  TO  1 
IF(CPC( 


T.l) 
T.8) 

TURN 


Jl=Jl+3 
Jl=Jl-3 


GO 
GO 


GO 
GO 


T.3) 
T.l) 

5 

T.l) 
T.6) 
I3*J3 

N=1,KNT 
SMV(N)/1 
SMV(iM)-l 
NE1LP2) 
SQ( 13, J3 
FC.(M14)  . 
PC (Ml  4) . 
35 


TO    626 

TO    626 

TO    626 
TO    626 


00 

Q0*M14 

GO    TO    635 

)  .NE.O)     GO    TO    635 

EQ.90)     GO    TO    629 

EQ.32)     GO    TO    629 


00 

00*M15 
GO    TO    631 

Ml  8=1 

TO    635 
7)-10 
l)-(  JATTSQdl,  Jl)/100)*100 

1)-(KATTSQ( IlfJl)/100>*100 


M=l ,KNT 

SMU(M)/1 

SMV(M)-1 

NE*M14J 

IH-J1 

EQ.M17) 

E 

NEiO)    GO 

)=JPAR(1 

TSQdlt  J 

TSU( II, J 

+  1 

GdJAT)     JPAR{ 17)=JPAR(17)-50 

E 

TURN 

24 

0.1)    GO    TO    625 

TURN 

24 
E 

K=l,16 

)=JPAk<20)+JPAR(K)*NWT(K) 

E 


S(MPC,CPCfOCCSQ, JVALPC,MATTSQ,MPOSMVi 

NPtMCASi MCAf NTURN,NCHK,MNT) 

R     (0) 

6) ,0PC(16) ,OCCSG(8,8) , JVALPCU6) , 

0SMV(75) ,MPHMV(75) 


INE    MOVE 

MNPHT,CE 

T    I  NT  EG E 

ON    MPCd 

18,3) , MP 

=  1,8 

=  1,8 

I,  J)=0 

,J)=OCCSQ(I ,J)*NTURN 

E 


N.EQ.-l)     GO    TO    65 
0PCU6) 

0 

MPC(16) 

.EQ.O)    KINGSQ=0 


K=l,lto 
N.EQ.-l) 
K). EQ.O J 
C(K) 
00 
K) .EQ.O) 


GO    TO    75 

GO    TO    2000 


GO    TO    2000 
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NPGS=OPC(K) 
100    IP=NPGS/10 

JP=NPOS-10*IP 

IFIK.G7.81    bO    TO    1100 

IF< JVALPC<iO  .EQ.90)    GO    TO    1400 
PAWN    MOVES 

IF(MNPHT.NE.O)     NTURN=-NTURN 

I=IP+NTORN 

IF(0CCSQ( i,JP).NE.O)  GO  TO  1010 

N=N  +  1 

PPCSMV(N)=K*100+10*I+JP 

NCP=NTURN*(2*IP-9) +  5 

IF(NCP.NE.G)  GO  TO  1010 

I=I+NTURN 

IF(OCCSQ( I, JPJ.NE.O)  GO  TO  1010 

N  =  N+1 

MPQSMV{N)=K* 100+ 10*1+ JP 
1010  I=IP+NTURN 

IF(MNPHT.NE.O)  N TURN=-NTURN 

J  =  J  P-  1 

IFU.LE.OJ  GO  TO  1030 
1020  MATTSQ(  I , J ) =MATTSU ( 1 , J) +100 *JVALPC( K) +1 

NN=NN+1 

MPHMV  <  NN )  =?K*  100+10*  I +J 

MSQ=10*I+J 

IF(MSQ,EQ..KINGSQ)  GO  TO  2400 

IF(OCCSQ( 1,JJ .GE.O)  GO  TO  1025 

IF<OCCSQ(i,J).Eu.-9900)  GO  TO  1025 

N  =  N+1 

MPOSMV( N)=K#100+10*I+J 

IF  (MPOSMV(N)  .E J.MPHMV (NN)  )     NN=NN~1 
1025  IFU.GT.JP)  GO  TO  2000 
1030  J=JP+1 

IFU.GE.91  GO  TO  2000 

GC  TO  1020 
KNIGHT  MOVES 
1100  IFiK.bT.10)  GO  TO  1200 

I=IP+1 

J=JP+2 

ASSIGN  1110  TO  MAR 

GO  TO  1185 
1110  J=JP-2 

ASSIGN  1120  TO  MAR 

GO  TO  1185 
1120  I=IP+2 

J=JP+1 

ASSIGN  1130  TO  MAR 

GO  TO  ~1185 
1130  J=JP-1 

ASSIGN  1140  TO  MAR 

GC  TO  1185 
1140  1=1 P-l 

J=JP-2 

ASSIGN  1150  TO  MAR 

GO  TO  1185 
1150  J=JP+2 

ASSIGN  1160  TO  MAR 

GO  TO  1185 
1160  I=lP-2 

J=JP-1 

ASSIGN  11J0  TO  MAR 

GO  TO  1185 
1170  J=JP+1 

ASSIGN  2000  TO  MAR 
1185  NKC=I*J 

IF(NKC.LE.O)  GO  TO  1189 

IF( I.GT.8)  GO  TO  1189 

IFU.GT.8J  GO  TO  1189 

MATTSQI I, J)=MATTSQ( I ,J)+100*JVALPC(K)+1 

NN=NN+1 

MPHMV<NN)=K*100+10*I+J 

MSG=10*I+J 
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IF(MSQ. 
IF<GCCS 
IF(GCCS 
N=N  +  1 
MPGSMV( 
IF(MPOS 
GO  TU  M 
P  MCVES 
IFIK.GT 

nq=o 

1201    NCB=0 
ND  =  0 
I  =  IP 
J  =  JP 
1  =  1+1 
IFd.GT 
J  =  J+1 
IF(J.GT 
IF(CCCS 
IFtQCCS 
IFlGCCS 
IF(£CCS 
1F(0CCS 
IF(ND8. 
IF(NDB. 
ASSIGN 
GC    TO    1 
ASSIGN 


1189 

BISHC 

1200 


1202 


EQ.KINGSQ)  GO  TO  2400 

Q< I ,J  )  .GT.OJ    GO    TO    1189 

QU  ,J)  .EQ.-9900)    GO    TO    1189 

N)  =  100*K  +  10*H-J 

MVCN) .EQ.MPHMV(NN) }     NN=NN-1 

AP.t  I  illO,  1120,  1130,1140,1150,1160,1170,2000) 

.12)    GO    TO    1300 


.8)    GO   TO    1210 


1205 
1210 

1215 


1218 
1220 

1225 


1228 
1230 

1235 


GC    TO    1 
NC8  =  0 
ND  =  0 
I  =  IP 
J  =  JP 
1  =  1-1 
IF( I.LE 
J  =  J-1 
I  F  (  J  .  L  E 
IF(OCCS 
IF(OCCS 
IFiOCCS 
IF(OCCS 
IFCOCCS 
IF (NOB. 
IFiNOB. 
ASSIGN 
GG    TO    1 
ASSIGN 
GO    TO    1 
NC3=0 
ND=0 
1  =  1  P 
J  =  JP 
1  =  1+1 
IF( I.GT 
J  =  J-1 
IF( J.LE 
IF(CCCS 
IFfOCCS 
I FtOCCS 
IF(GCCS 
I  KOCCS 
IF (NDB. 
IF(ND8. 
ASSIGN 
GO    TO    1 
A  S  S  1 GN 
GL    TO    1 
NDB=0 
ND  =  0 
1  =  IP 
J  =  JP 
1  =  1-1 


.8) 
CU 

C(  I 

QU 
Q<  I 
QU 

EQ- 
EQ* 
121 
280 
120 
280 


GO    TO     1210 
,J  )  .EQ.O)    GO    TO 
,J).LT.O)     NDtJ  =  0 
,J).EQ.90)    NDB=1 
fJ).EU.80)    NDb=l 
,J).EQ.32)     NDB=1 
1)    ND=1 
1)    GO    TO    1205 
0    TO    MAR 

2    TO    MAR 


1205 


,0)    GO    TO    1220 


,01 
Q(  I 
QU 
G(I 
QU 
Q(.I 
EQ. 
EG. 
122 
280 
121 
280 


GO    TO    1220 
,J  )  .EQ.O)    GO    TO 
,J).i_T.Q)     NOB  =  0 
iJJ.EQ.90)    N0B=1 
,J).Ew.80)     ND6=1 
,Jj.EQ.32)    NDB=1 
3.  )     ND=I 
1)    GO    TO    1218 
0    TO    MAR 

5    TO    MAR 


1218 


8)    GO    TO    1230 


.01 
Q(  I 
Q(  I 
Q(  I 
C(i 
Q(I 
EQ. 
EQ. 
123 
280 
122 
230 


GO    TO    1230 
,  J)  .EQ.O)    GO    TO 
j.LT.O)     NDB=0 
).EQ. 90)    NDB=1 
).EQ.80)     NUB=1 
1.EQ.32)    N0B=1 
ND=1 


1228 


,J 
,J 
,J 

,J 
1  ) 

1) 
0 


GO    TO 
TO    MAR 


1228 


5    TO    MAR 
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1233 
1230 


1285 


1F( I.LE.OJ 
J  =  J  +  1 

Ifi J.GT.81 
IF(OCCS0(.I 
If (OCCSQ* I 
IF<OCCSg( I 
IF(OCCSQ(  1 
IF(OCCSQU 
IFCNDB. EQ- 
IFiNDB. EQ. 
ASSIGN  129 
GO  TO  i^dO 
ASSIGN  123 
IFiOCCSQW 
IF(OCCSQ( I 
If (NO. EQ.l 
N  =  N+1 

MPCSMV(N)= 
MATTSQ(  It  J 
NN=NM+1 
MPHMV(NN)=; 
IF(MPOSMV( 
MSQ=10*I+J 
If  <  MSQ.  EQ.. 
NCB  =  0 

GO  TO  MAR, 
1290  IF(NQ.EQ,0 
GO  TO  1301 
MOVES 
If (K.GT 
NDR=0 
ND=0 
I  =  1  P 
J  =  JP 
1  =  1+1 
IFd.GT 
1F(0CCSQ( I 
If (GCCSQ( I 
IHOCCSGU 
1F(0CCSQ(  I 
IF(OCCSQ(-I 
If (NDR. EQ* 
IF(NDR. EQ- 


ROCK 
1300 
1301 


1305 


GO  TO  129Q 

GO  TO  1290 
,  JJ.EQ.OJ  GO  TO  1233 
,J).LT.O)  NDB=0 
i  J  J. EQ. 90  J  NDB=1 
tJJ.EQ.80J  N0B=1 
,JKEQ.32)  NDB=1 
13  ND=1 
1J  GO  TO  1238 
0  TU  MAR 

i>  TO  MAR 

,J)  .GT.O)  GO  TO  1285 

,J J.EQ.-9900)  GO  TO  1285 

J  GO  TO  1285 

100*K+10*1+J 

J=MATTSQ(I  ,JJ+100*JVALPC(KJ+1 

K*100+10*I+J 

N) .EQ.MPHMV(NN) )     NN=NN~1 

KINGSQJ  GO  TO  2400 

(1210, 12 02, 1220, 12 15, 1230, 122 5, 12 90, 123 5  J 

J  GO  TO  2000 


1.4)  GO  TO  1400 


3) 


,J 

Li 
1J 
ASSIGN  1310 


GO  TO  1310 
,JJ.EU.0J  GO 
,J J  .Lf.O) 
i  J  I  .  c  Q .  5  0  ) 
, J ) .EQ. 90) 
) .EQ.80J 
N0=1 
GO  TO 
TO  MAR 


TO 
NDR=0 
NDR=1 
NDR=1 
NDR=1 

1308 


1308 


GO  TO  1380 
1308  ASSIGN  1305  TO  MAR 

GO  TO  1380 
1310  NDR=0 

ND  =  0 

I=IP 
1315  1=1-1 

IFU.LE.OJ 

IF(OCCSQ(  I 

IF(OCCSQ(  I 

IF(OCCSC(.I 

I F(CCCSQU 

IF(UCCSQ( I 

IF(NOR.EQ. 

IF(NDR. EQ* 

ASSIGN  132 

GO  TO  1380 
1318  ASSIGN  131 

GO  TO  1^80 
1320  NDR=0 

N0  =  0 

I=IP 

J  =  JP 
1325  J  =  J  +  1 

IFU.GT.8) 

IF(OCCSQ(  1 

If  (JCCSCl  I 

IF(GCCSQ(i 


GO  TO  1320 
,JJ.EQ.O)  GO  TO  1318 
tJJ.LT.OJ  NDR=0 
, JJ.EQ.50J  NDR=i 
,J).EQ.90)  N0R=1 
tJJ.EQ.80J  NDR=1 
1)  NU=1 
1)  GO  TO  1318 
0  TO  MAR 

5  TO  MAR 


GO  TO  1330 
,  J)  .EQ.O)  GO  TO  1328 
»JJ.LT.OJ  NOR=0 
,  JJ.EQ.50)  NDK=1 
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1328 
1330 

1335 


1338 

1380 


1385 


CASTL 


1366 


1388 


1390 

QUEEN 
1400 


1401 

KING 
1500 
1501 


1510 


1520 


IF(0CC 

I F(OCC 
IF (NOR 
IF (NOR 

ASSIGN 

GG  TO 

ASSIGN 

GC  TO 

NDR=0 

ND=0 

I  =  IP 

J  =  JP 

J  =  J-1 

IF( J.L 

IFIOGC 

IF(GCC 

IF(UCG 

IF(OGG 

IF(OGG 

IF(NDR 

IF (NOR 

ASSIGN 

GO  TO 

ASSIGN 

IF(CCC 

IF(OGC 

IF(ND. 

N  =  N+1 

MPCSMV 

MATTSQ 

NN=NN+ 

MPHPV( 

IF(MPQ 

IF(OCC 

IF(ND. 

E    MOVES 
IF(K.N 
IF (MCA 
IF (MCA 
N  =  N+1 
MPCSMV 
I F  (  K .  N 
IF(MCA 
I F ( MCA 
IF(MCA 
N  =  NU 
MPOSMV 
MSG=10 
If-(MSQ 
NQR=0 
GC    TO 
IF(NQ. 
GC    TO 
MOVES 
IFU.G 
NC=1 
GC    TO 
NQ=0 
GC    TO 

MOVES 
I=IP+1 
J  =  JP 
I  F  {  I  .  G 
ASSIGN 
GC    TO 
J=JP-1 
IF( J.L 
ASSIGN 
GC    TO 
J  =  JPU 
IF( J.G 
ASSIGN 


SCU  ,  J).EQ.90)    NOR=l 
SQ(IfJ).EQ»80)     NDR=1 
.  EQU)    NO=l 
.EQ.l)     GO    TO    1328 

1330    TO    MAR 
1380 

1325    TO    MAR 
1380 


E.O.J 
SQ(  I 
SGU 
SCU 
SQU 
SQU 
.  EC. 
.  EQ. 

139 
1380 

133 
SGU 
SGU 
EG.l 


GO    TO 
,J).EQ 
t J  ).LT 
,J).EQ 
,  Ji.EQ 
,  J) .EQ.80) 
1)    ND=1 
1)     GG    TO    1338 
0    TO    MAR 


1390 

0)  GO  TO 
0)  NDR=0 
50)  N0R=1 
90)  NDR=1 
NOR=l 


1338 


5  TO  MAR 

iJJ.Gr.O)  GO  TO  1385 

,  J  ).EQ. -9900)  GO  TO  1385 

J  GO  TO  1385 


(N)*»10C*K+10*H-J 

(  If.JJ=MATTSQ(ItJ)+100*JVALPC(K)+l 

1 

NN)  *K*100+10#I+J 

SMV(N) .EQ. MPHMV (NN) )  NN=NN-1 
SQ( it  J J.NE.9900)  GO  TO  1368 
EG.l)  GO  TO  1388 

E.13)  GO  TO  1386 


S.GT.O)  GO  TO 
.GE, 50)  GO  TO 


1338 
1388 


(N)-98 

E.14)  GO  TO  L338 
S.LT.O)  GO  TO  1388 
S.GT.l)  GO  TO  1388 
.GE+501    GG  TO  1338 


(N)=99 

Teg.kingsq) 


GO  TO  2400 


MAR, (1310,1305,1320,1315,1330,1325,1390,133  5) 

EG.O)  GO  TO  2000 

1401 

T.15)  GO  TO  1500 

1201 

2000 


T.8)  GO  TO  1530 

1510  TO  MAR 
1590 

E.O)  GO  TO  1520 

1520  TO  MAR 
1590 

T.8)  GO  TO  1530 
1530  TO  MAR 


90 


GO  TO  1590 
1530  IF(I.LT.IP)  GO  TO  1540 

1  =  IP-1 

IF{ I.LE.01  GO  TO  1540 

GG  TO  1501 
1540  I=IP 

J=JP-1 

IF(J.LE.O)  GO  TO  1550 

ASSIGN  1550  TO  MAR 

GO  TO  1590 
1550  J  =  JPH 

IF1J.GT.81  GO  TO  2000 

ASSIGN  2000  TO  MAR 
1590  IF(OCCSQ(f ,J).GT.O]  GO  TO  1595 

N=N+1 

MPGSMV(N)=100*K+10*H-J 
1595    MATTSQC I , J J  =  MATTSQ( I i J) +100*JVALPC (KJ +1 

MSQ=10*H-J 

IF(MSQ.EQ*KINGSQJ  GO  TO  2400 

GO  TO  MAR,  <i51G,  1520,  1530,1550,2000) 
2000  CONTINUE 

NT=N 

NPHT=NN 

GC  TO  2450 
2400  NCHK=1 
EN  PASSANT  MOVES 
2450  IF(CENP.EQ.O)  GO  TO  3500 

OFN1=GENP/100 

OKL=OENP-1GO*GP:\I1 

IPN=0KL/10 

JFN=0KL-10*IPN 

J=JPN-1 
3010  IFU.LE.O)  GO  TO  3060 

IFU.GT.8i  GO  TO  3500 

OCSQ=OCCSQ( I PNf J )*NTURN 

IF(OCSG.NE.IO)  GO  TO  3  060 

0Q1=10*1PN+J 

IF(NTURN.EC.-l)  GO  TO  3040 

L  =  0 

DO  3020  K-1,16 

IF(MPCIK) iEQ.OUl )  L=K 
30  20  CONTINUE 

NT=NT+1 

MPOSMV  (  NT )  - 1 00*L  *■  1 0*  (  I PN+ 1  i  +  J  PN 

MATTSQ(  IPfcl,JPN)=MATTSQ( IPN, JPN i +100*JVALPC< LJ  +1 

GC  TO  3  060 
3040  L=0 

DC  3050  K=?l,16 

IF(0PC(K),EQ.0Q1 J  L=K 
3050  CONTINUE 

NT  =  NT.+  1 

MPOSMV(NT)  =  100*L*-10*(  IPN-1J+JPN 

MATTSQ( IPN,JPN)=MATTSQ( IPNi JPNi +100*JVALPC( L) +1 
3060  IF(J.GT.JPN)  GO  TO  3500 

J=JPN+i 

GC    TO    3010 
3500    fl\T  =  NT 

MNPHT=NPHT 

DC  2100  1=51,8 

DC  2100  J=l,8 

OCCSQ(I.JJ=OCCSQ< It J)*NTURN 
2100  CONTINUE 

RETURN 

END 
PROGRAM  PRO 

DIMENSION    NWT( 18) ,NPAR( 18) 

READ(3,100)     [NWT (K)  ,K  =  1  ,13) 
100    FORMAT! 1814) 

READ(8,100)     (NPAR(K) ,K=1,18) 

RE  AD  (8,  2  0.0)    LA 
200    FGFMAT(I4) 

READ(8,200)    LE 
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READ<8,200>    N 

00    300    K=l,13 

NhT(K)=10*NWT<K)*<LA*LE*NPAR<K)*10)/(N+l ) 

NHT(K)  =NWT(K)/10 
300    CONTINUE 

WRITER, 400)     (NS 

WRITE (6, 400)     (NWT(K) tK-lf 18J 
400    FCRMAT(2X=t  1814) 

SR 

STCP 

END 
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